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Dedication 


To Svetlana 


Preface to the Second Edition 


The second edition is an addition of the first. Two new chapters on line 
integrals, Green's Theorem, Stokes's Theorem and Gauss's Theorem have 
been added. 


The author would like to thank everyone who pointed out mistakes in the 
first edition. We hope we have found and corrected these, and have not 
introduced any more with the new material. 


Preface to the First Edition 


As far as the laws of mathematics refer to reality, they are not certain; 
and as far as they are certain, they do not refer to reality. 


(Illuminated Geometry, Sidelights on Relativity by A. Einstein) 


This book is intended for an undergraduate course in vector calculus taken 
by students majoring in science, or engineering. There are many standard 
textbooks on vector calculus, however, this book takes rather different 
approach. 


First of all, this book is different from most textbooks because it 1s the 
author's attempt to introduce vector calculus with the aid of Mathematica 
computer algebra system to represent them and to calculate with them. It is 
written with and for Mathematica version 11. However, most illustrations 
are backward compatible with earlier versions of Mathematica® or have 
equivalent representations. 


Secondly, the unique features of this book, which set it apart from the 
existing textbooks, are the large number of illustrative examples. It is the 
author's opinion a novice in science or engineering needs to see a lot of 
examples in which mathematics is used to be able to "speak the language." 
Throughout the book these examples and all illustrations can be replicated 
and used to learn and discover vector calculus in a new and exciting way. 
Since we cover the problems from the core courses, the reader can practice 
with our solutions, and then modify our solutions to solve the particular 
problems assigned. This should help the reader move up the problem 


solving skills and to use Mathematica® to visualize the results and to 
develop a deeper intuitive understanding. Usually, visualization provides 
much more insight than the formulas themselves. 


This book covers vector calculus in one, two and three variables. The 
prerequisites are the standard courses in calculus. A knowledge of computer 
programming would be beneficial but not essential. From the point of view 
of mathematicians, this book is less rigor because the author has put less 
emphasis on proofs but more on examples and illustrations to clarify 
concepts. 


It is important to note that this book should not be thought of as a substitute 
for the text in a chapter in a standard introductory textbook. Although there 
is an introduction to each chapter where the basics are presented, this 
introduction is brief. This book is therefore designed to be used in 
conjunction with any standard textbook. You could think of this book as 
supplementing a textbook by providing examples using Mathematica®. Or 
you could think of a textbook as supplementing this book by providing 
additional conceptual and theoretical background; and proofs of theorems. 


We assume the reader has some familiarity with Mathematica®, so we 
could focus directly on vector calculus. This book does not discuss 
programming in Mathematica® nor does it teach all the principles and 
techniques of applications using Mathematica®. However, Appendix A 
provides a basic introduction to Mathematica®. New users will find that the 
materials in this appendix enable them to become familiar with 
Mathematica® within a few hours. The reader can learn the essentials of 
Mathematica® through examples described in the book. Mathematica® 
commands and techniques are introduced as the need arises. 


Although extreme care was taken to correct all the misprints, it is very 
unlikely that I have been able to catch all of them. I shall be most grateful to 
those readers kind enough to bring to my attention any remaining mistakes, 
typographical or otherwise. Please feel free to contact me at: 


GedankenBooks@gmail.com 


Steven Tan 
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Chapter 1. Vectors 


Initialization 


This section is reserved for Mathematica notebook initialization. 


At the start of each chapter, we shall clear all values and definitions of 
any previously defined symbols using Clear command. Here is also the 
place where we set some default options. Most Mathematica modules 
are defined in the texts when the needs arise. 


Clear["Global**"] 
SetOptions[ParametricPlot,PlotStyle->AbsoluteThickness[2]]; 
SetOptions[ParametricPlot3D,PlotStyle->AbsoluteThickness[2]]; 
SetOptions[Graphics,BaseStyle->AbsoluteThickness[2]]; 


SetOptions[Graphics3D,BaseStyle->AbsoluteThickness[2]]; 


Using SetOptions command we set specified default options for symbols 
that we are going to use thereafter. Unless overwrite it explicitly the 
options for these commands are set according to the values in 
SetOptions. For example, the ParametricPlot command's PlotStyle 
option is set to AbsoluteThickness[2] by default. 


1.1 Algebraic Properties of Vectors 


We begin with some reviews of the notion of a vector. 


Definition 1.1 
A vector in R? is an ordered pair of real numbers. A vector in RÊ is an 


ordered triple of real numbers. Similarly, a vector in R" is an ordered n- 
tuple of real numbers. 


In Mathematica, vectors are represented as lists of numbers or variables 
encased in braces. 


vector2D={vl,v2} 


vector3D- (v1,v2,v3] 


Show that addition of vectors is commutative, that is, A+ B =B +A. 


a={al,a2,a3} 


b={b1,b2,b3} 


atb==bta 


Show that the addition of vectors is associative, that is, A+ (B + C) =(A+ 
B)+C. 


c={cl,c2,c3} 


a+(b+c)==(atb)+c 


If A, B, and C are vectors, and m and n are scalars, then 
1.A+B=B+A Commutative law for addition 
2.A+(B+C)=(A+B)+C Associative law for addition 

3. m(nA) = (m n)A = n(mA) Associative law for scalar multiplication 
4. (m + n)A = mA + nA Distributive law for scalars 


5. m(A + B) = mA + mB Distributive law for vectors 


1.2 Geometric Properties of Vectors 


A vector can be visualized in R? or R? as an arrow that begins at the origin 
and ends at a point. Such a depiction is often called the position vector of 
the point (81, 82) or (81, 42, 83) in R? or RÊ , respectively. 


(* A vector in R? *) 


Graphics[ (| Arrowheads[0.1 ], Arrow[110,01,12,1]  ]Á s; Axes-^ True] 
1.0} 
T 
0.6 l 
0.4} 


0.2} 


0.5 10 — 1.5 2.0 


Figure 1.1. The vector a=(2,1) in RÊ. 


(* A vector in R? *) 


Graphics3D[ Arrowheads[0.1 |, Arrow] { {0,0,0}, {3,3,3}}]},Axes->True] 


^ 


2 
» 


Figure 1.2. The vector a=(3,3,3) in RÈ. 


Two vectors are equivalent as long as they are parallel and have the same 
lengths. Thus, we may represent the vector 8 = (81, 82, 83) by an arrow 
with its tail at the origin or with its tail at any other point. 


origin- 10,0); 
al}; 
b={1,2}; 


Graphics[ {Blue,Arrowheads[.08],Arrow| {origin,a} J, Arrow] {origin,b} ],Arr 
ow| {origin,atb} ], {Dashed,Arrow| {a,at+b} ]}, 


{Dashed,Arrow| {b,a+b}]},Text[Style["a",Bold,FontSize->14], 
{1,0.3} ], Text[Style["b",Bold,FontSize->14], {0.5,1.3}],Text[Style["a + 
b",Bold,FontSize->14], {1.6,1.3} ]},Axes->True | 
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Figure 1.3. The vector a+b is represented by the arrow that begins at 
the common initial point of a and b and runs along the diagonal of the 
parallelogram determined by a and b. 


1.3 Parametric Equations of Curves 


A curve in R? is the set of points (x,y) whose coordinates are given by a 
function of a parameter t, such as 


{ x z f(t), 


(1.1) y =9(t). 


Similarly, a curve in R? is the set of points (x,y,z) whose coordinates are 
given by a function of a parameter t 


x=fft), 
| y =g(t), 
(1.2) z z (t). 


Example 1.1. The vector parametric equations for a line in R? through the 
point (61, 2) and parallel to (41, 82) are given by 


spur 
y =az2t+ b2, 


where 4, 82, b1, b2, teR. 


Example 1.2. Similarly, the vector parametric equations for a line in R^ 
through the point b = (b1, bo, ..., Pn) and parallel to 8 7 (81, 82, ..., An) 
are 


xX, = a4 t+by4, 


X2 = a2 t + bo, 
Xn = apt Ds, 
where 


a, a2, sm An, bi, bo, Er bn, teR. 
In vector notation, this can be written as 
r(t)=b+ta, 


where T = (X1, X2, ..., X»). 


Definition 1.2 


Let à = (81, 82, 83) and P = (51, 52, 53) pe two nonzero, nonparallel 


vectors in R? . The vector parametric equations for a line in R? through 
the point b and parallel to a is defined as 


(1.3) r(t) =b+ta, 


where t € R andr e RÊ, 


Example 1.3. Write a set of parametric equations for the line through the 
points (5,-3,4) and (0,1,9). Draw the line. 


Solution: 


Clear[a,b] 
a={0,1,9}-{5,-3,4} 


b={5,-3,4} 


(* The equation of the line through b and parallel to a *) 


line=a t+b 


Thus, the set of parametric equation for the line is 


x(t) 2 -5t-5, 
DE 
z(t)=5t+4. 


In vector notation, it is written as 
r(t)=(-5t+5,4t-3,5t+4). 


Note that we can use either the point (5,-3,4) or (0,1,9) as the through-point 
for b. 


Module[ {plot} ‚plot[ 1]=ParametricPlot3D[line, {t,-1.5,1.5},PlotStyle- 
>Hue[0.7],Boxed->False,AxesOrigin-> {0,0,0},AxesLabel->{"x","y","z"}]; 


plot[2]=Graphics3D[ { ([Dashed,AbsoluteThickness[2 ], Arrowheads[0.04 |; Ar 
row[110,0,05,bj ]j. 
(Red, AbsoluteThickness[2 |, Arrowheads[0.04 ], Arrow[ {b,b+0.5a} |}}]; 


plot[3 ]-Graphics3D[ | {Text[Style["b", Bold], {3.5,-3,3.3}]}, 
{Text[Style["a", Bold], {5,-3,5.5!]}, ( Text[Style[" (5, -3, 4)",Bold], 
{7.1,-3,4.5}]}, {Text[Style["(0, 1, 9)",Bold], {4,-3,10}]}}]; 


plot[4]=Graphics3D[ | {Red,PointSize[0.025],Point[b]}, 
{PointSize[0.025],Point[ {0,1,9}]}}]; 


Show|Array[plot,4], ViewPoint->{5,-10,2}] 


] 


Figure 1.4. The line in space parametrized by the equation r(t)=(-5t+5,4t- 
3,5t+4). 


1.3.1 The right circular helix of unit radius 
The parametric equations for a right circular helix of radius 1 are defined as 


x=c0ost, 
| y=snt teR. 


Z=T, 


ParametricPlot3D[{Cos|[t],Sin[t],t}, {t,-5,5 } PlotStyle- 
>Hue[0.7],AspectRatio->2 | 


-1.0 _0 5 
2 200 
0.5 (9 
5[ | 
| 
| | 
| 
0 | | 
| | 
| | 
| | 
-5 - i T 
-05 
-1.0 


Figure 1.5. The right circular helix of radius 1. 


1.3.2 A three-dimensional astroid 


The parametric equations for a three-dimensional astroid are given by 


x 2 cos? f, 
y - sin? t, 0sts27. 
25060521, 


ParametricPlot3D[ ( Cos[t]^3,Sin[t]^3,Cos[2t] //Evaluate, {t,0,27} ,PlotStyle- 
>Hue[0.7]] 


Figure 1.6. A three-dimensional astroid. 


1.3.3 A cycloid 


If a wheel rolls along a straight line at constant speed without slipping, a 
point on the circumference traces a curve called a cycloid (see Tan, S. 
Handbook of Famous Plane Curves Using Mathematica, Chapter 2.13 
Cycloid). 


The parametric equations for a cycloid are given by 


a teR 


y=a(1-cost), 


ParametricPlot[ {t-Sin[t], 1-Cos[t]}//Evaluate, {t,0,4t} ‚PlotStyle->Hue[0.7]] 


Figure 1.7. The cycloid for a=1. 


Module[ {x,y,cycl}, 
x[t_]:=t-Sin[t]; 
y[t ]:41-Cos[t]; 


cycl[u ]:-ParametricPlot| | {x[t],y[t]}, {u+Cos|t],1+Sin[t]}}, {t,0,6 

rt‘ ‚Epilog-> 

{ {PointSize[0.01],Black,Point[ (u,1) ],PointSize[0.015],Red,Point[ {x[u],y[u 
|} ]},Line[{ {u,1},{x[u],y[u]} }]},PlotRange->{ {-1,20}, {-2,3}} ImageSize- 
>550]; 


Animate[cycl[u], {u,0,67},AnimationRunning->False] 


20 


Animation 1.1. The locus of a point on the rim of a circle of radius 1 rolling 
along a straight line generates the cycloid (t-sin t,1-cos t). 


1.3.4 The involute of a circle 


The involute of a circle is formed by unwinding a taut string which has 
been wrapped around a circle (see Tan, S. Handbook of Famous Plane 
Curves Using Mathematica, Chapter 2.31 Involute of a Circle). 


The parametric equations are 


as co iude. teR 


y=a(sint-tcost). 


ParametricPlot[ {{Cosf[t],Sinft]},{Cos[t]+t Sin[t],Sin[t]-t Cos[t]!}}//Evaluate, 
{t,0,27} ‚PlotStyle->Table[Hue[0.71],{1,0,1}]] 


Figure 1.8. The involute of a circle. 


1.4 The Dot Product 


Definition 1.3 


Let 8 = (81, 82, ..., an) and D = (b1, b2, ..., On) be two vectors in R” . 
The dot product of a and b is defined as 


a b= a4 b1 +a bə +... an Dp. 


In R? , the analogous definition is 
(1.4) 
a-b=a, by + A> D» + a3 Da, 


where @ = (81, 82, 83) and P = (61, b2, ba) | 


In Mathematica, there are two ways to compute the dot product, that is, 


1. Using the period key between two vectors 


a.b 


2. Using Dot command 


Dot[a,b] 


Properties of dot products. 
If à, b, CER” and KER, then 
1. a: a>=0 

a: a=0 if and only if a=0. 
2.a:b-b.:a 
3.a-(btc)2a- b*ta-c 


4. k (a - b)-(k a) : b=a - (kb) 


Definition 1.4 
The length of a vector 8 = (81, 82, 83) , denoted ll 8 ll is defined as 


(1.5) 


ajz2va-a- 84^ + a2? +a. 
lal] =v 


In Mathematica, we define the length of a vector using the dot product: 
lengthn[v_]:=N[Sqrt[v.v]] 


lengthn[a] 


lengthn[b] 


lengthn[c] 


Throughout this book, we will be concerned only with vectors in R? and 
vectors in R®. 


Theorem 1.5 


If a and b are any two vectors in either R? or R? , then the dot product 
of a and b is defined as 


(1.6) a: b= [all ||b|| cose, 


where 0 is the angle between a and b. 


The angle between two vectors can be obtained from equation (1.6) 


0-cos | 4-2 
(1.7) lal II , 


where OF 8x 7t. 


So, we can compute the angle between two vectors a and b in 
Mathematica using 


0-ArcCos[a.b/(lengthn[a] lengthn[b])] 


Notice that the angle is in radians. 


To convert this value to degrees, type 


0*180/n 


The notion of the angle between two vectors gives rise to the idea of the 
projection of b onto a, written as 


(1.8) Proja b 
The magnitude of proja D is defined as 


|| b || cos 8. 


where 0 is the angle between a and b. 


The direction of POJa D is either the same as that of a or opposite to a 
depending on the value of cos 0. 


Thus, the magnitude is 
(1.9) 


Il proja b || = IIb || cos 0= $2 


Hence, the projection of b onto a is 


(1.10) 


i p—-acb a _a-b 
pron p= Ilall Bl ae 


1.5 The Cross Product of Vectors in R? 


Definition 1.6 


Let a and b be two vectors in R° . The cross product of a and b is 
denoted by a x b . The length of a x b is defined as 


(1.11) 
la x b||= |[a]| || b]| sine 


2 


where 0 is the angle between a and b. 


Note that the cross product of vectors only work on three-dimensional 
vectors. 


There are two ways to compute the cross product of vectors in 
Mathematica: 


1. Using the Cross command 
2. Using the « sign 


(Notes: to generate the x sign, press the Esc key, then type the word "cross" 
and followed by another Esc key.) 


a={1,2,-1}; 


b={3,2,4}; 


Cross[a,b] 


axb 


Properties of the cross products. 

It à, b, Ce R and k eR , then 

l.ax b= - b x a (anti-commutativity) 
2. a x (b+c)=a x b+a x c (distributivity) 
3. (a+b) x c=a x c+b x c (distributivity) 


4. k (a x b)-(k a) x b= a x (k b) 


a={al,a2,a3}; 
b={b1,b2,b3}; 


axb 


From the result above we see that 


a x b = (a2 b3 - b2 a3, a3 b4 - a1 b3, a4 b2 - a2 b1) 


Written in vector form 


ax b = (a2 b3 - bz a3) 1+ (a3 b1 - ay b3) j + (a1 bə - az bi) k 


The cross products can also be written in determinant form as 

i j k 
a1 à? a3 
bı b2 b3 


axb- 


(1.12) 


Using Mathematica, it is straightforward to prove the properties of the cross 
products. 


1.5.1 The Area of a Parallelogram 


The area of a parallelogram spanned by two vectors a and b is given by 


(1.13) ||a x b || 


a= {- l ,-2,0} ; 


b={-3,1,0}; 


(* The area of parallelogram spanned by a and b *) 


Sqrt[(Cross[a,b]).( Cross[a,b])] 


lengthn[Cross[a,b]] 


Alternatively, we can use the Norm command to compute the norm of a 
x b, that is ax bil, 


Norm[Cross[a,b]] 


1.5.2 The Volume of a Parallelepiped 


The combination of dot product and cross product can be used to find the 
volume of a parallelepiped. 


Let a parallelepiped be spanned by the vectors a, b, and c. The volume of 
the parallelepiped is defined as 


(1.14) 


la-(bxc)|=|b ; (c x a)| = |c; (a x b)| 


The identity is known as triple scalar product. 
a= {3 x 1 ,0j ; 
b= {-2,0, 1 i ; 


c={1,-2,4}; 


(* The volume of the parallelepiped *) 


Abs[a.Cross[b,c ]] 
Abs[b.Cross[c,a]] 


Abs[c.Cross[a,b]] 


Note that we have used the Abs command to compute the absolute 
value of the volume. 


a={al,a2,a3}; 
b={b1,b2,b3}; 


c={cl,c2,c3}; 


We can use Mathematica to verify the following identity 


C4 C2 C3 
Q4 a2 a3 
b4 b> b3 


c: (a x b)= 


c.(Cross[a,b])—-Det[ {c,a,b} |//Simplify 


Example 1.4. What is the volume of the parallelepiped with vertices 
(3,0,-1), (4,2,-1), (-1,1,0), (3,1,5), (0,3,0), (4,3,5), (-1,2,6), and (0,4,6)? 


Solution: 


Write the vertices as 


a=(3,0,-1),  b=(4,2,-1), c=(-1,1,0), 
d-(3,1,5), e=(0,3,0), £-(4,3,5), 


g=(-1,2,6), h=(0,4,6). 


a={3,0,-1}; 
b={4,2,-1}; 
c={-1,1,0}; 
d={3,1,5}; 
e={0,3,0}; 
f={4,3,5}; 
g={-1,2,6}; 


h={0,4,6}; 


Graphics3D[ (PointSize[0.03 ],Point[ {a,b,c,d,e,f,g,h} |, Text[Style["a",Blue,B 
old, 16],a+0.2],Text[Style["b",Blue,Bold,16],b+0.2],Text[Style["c",Blue,Bol 
d,16],c+0.2],Text[Style["d",Blue,Bold,16],d+0.2],Text[Style["e",Blue,Bold, 
16],e+0.2],Text[Style["f",Blue,Bold,16],f+0.2],Text[Style["2",Blue,Bold, 16 
],g+0.2],Text[Style["h",Blue,Bold,16],h+0.2],{Line[ {fa,b},{a,c},{a,d}}]}, 
{Dashed,Line[ 1 te,c},1&,b},{h,g},1h,f} {d.g}, {d.f}, {0-8}, teh}, 

{b,f}}]}}, Axes->True,ImageSize->300] 
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Figure 1.9. The parallelepiped with vertices (3,0,-1), (4,2,-1), (-1,1,0), 
(3,1,5), (0,3,0), (4,3,5), (-1,2,6), and (0,4,6). 


We can find the volume of the parallelepiped by using equation (1.14): 


| (ab x aè) - ad | - 53 


Abs|[Cross[b-a, c-a].(d-a)] 


1.6 Equations for Planes 


1.6.1 Coordinate Equation of Planes 


Definition 1.7 


3 
Let Po(Xo, Yo, Zo) € R“ bea point that lies in a plane II and n-A i+B j+C 
k a normal vector to II. Let P(x,y,z) be any point in the plane. Then II 
is defined as the vector equation 
(1.15) n: PoPz0, 


where 


PoP - (x - xo)i * (y - yo) j + (Z- zo) k 


Thus, the equation of the plane II may be written as 


A (x - Xo) * B(y - yo) * C (z - zog) 0 


Equivalently, 


(1.16 Ax «By *Cz-D, 


where D =A Xo +B yo+ C Zo , 


If C=0, then the normal vector n=A i+B j is parallel to the xy-plane. 
Hence the plane is a vertical plane. The equation of the plane becomes 


A (x - Xo) * B(y - yo) -0 . 


Example 1.5. Find a set of parametric equations for the line of intersection 
of the planes x+2y-3z=5 and 5x+5y-z=1. 


Solution: 
We need to find: 
(1) a point on the line of intersection 


Such point must satisfy the system of simultaneous equations given by the 
two planes: 


| 
9X+9y-Z=1 


Choose z=0, thus 
x—-23/5, y=24/5, z=0. 


Solve[{x+2y==5,5x+5y—=1}, {x,y}] 


(11) a vector parallel to the line of intersection 


Since the line of intersection is perpendicular to the two normal vectors to 
the planes, a vector parallel to the line of intersection must also be 
perpendicular to both normal vectors to the planes. 


The normal vectors to the planes can be read from the equations of the 
planes. These are 


ny =(1, 2, -3). 


and n2-(5,5, 71). respectively. 


Thus, a vector parallel to the line of intersection can be obtained from the 
cross product of N1 and N2 : 


nı x n2 - (1, 2, -3) x (5, 5, -1) 
- (13, -14, -5). 


Cross[ {1,2,-3},{5,5,-1} | 


By equation (1.3), the vector parametric equation for the line of intersection 
is of the form 


r(t)=b+t a. 
r(t)=(-23/5,24/5,0)+t (13,-14,-5), 
or 

x=13t- =, 


y=-14t+%, 
zc». 


plot1=ContourPlot3D[ {x+2y-3z==5,5x+5y-z==1 }, {x,-3,3}, {y,-3,3}, 
{z,-5,3},ContourStyle->Opacity[0.4],Mesh->None] 


P 


| 
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Figure 1.10. The planes x+2y-3z=5 and 5x+5y-z=1. 


plot2-ParametricPlot3D[ {13t-23/5,-14t+24/5,-5t}, (t,- 10,10], PlotStyle-— 
{Dashed,Hue[0]} ] 


50; t 
0| im ^ 100 
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Figure 1.11. The intersection line of the planes x+2y-3z=5 and 5x+5y-z=1 


Show/[plot1,plot2] 


Figure 1.12. The planes x+2y-3z=5 and 5x+5y-z=1 and their intersection 
line. 


1.6.2 Parametric Equations of Planes 


Definition 1.8 


Let 8 = (81, 42, 43) and b = (61, b2, b3) be two nonzero, nonparallel 
vectors in R? . Let Po(C1, C2, C3) be a point in the plane II. A vector 
parametric equation for II that is parallel to a and b is defined as 


(1.17) r(s,t)=sa+tb+c, 


where S, f€R ‚re R? , and c is the position vector of Po, 


Example 1.6. Find the parametric equation of a plane that contains the lines 
h and %2 , where 


h:x=2t+5, y=-3t-6, z=4t+10 
and 

h:x=5t-1, y=10f+3, z=/t-2 
Solution: 


Rewrite the equation of the lines as 


X=2T +5, 

h DER h : r4(t) = (5, -6, 10) +t (2, -3, 4) 
z=4t+10 
z=ar-1, 

&:[y- tots h : p(t) 2 (-1, 3, -2) +t (5, 10, 7) 
z=/t-2 


plot1=ParametricPlot3D[ { {2t+5,-3t-6,4t+10}, {St-1,10t+3,7t-2}}, 
{t,-5,5},PlotStyle->{ {Dashed,AbsoluteThickness[2]} }, ViewPoint-> 
{1,5,10}] 


Figure 1.13. The lines h and /2 are 


r4(t) =(5, -6, 10) +t (2, -3, 4) 


and 
ro(t) =(-1, 3, -2) +t (5, 10, 7) 


, respectively. 


The vector parallel to h can be read from the equation, that 1s, 


(2,-3,4). 
Likewise, the vector parallel to b is 


(5,10,7). 


We choose the point (5,-6,10) from I as the point Po where the plane 
passes through. 


By Definition 1.8, the vector parametric equation for the plane is defined as 
r(s,t)=s att b+c. 

So, the parametric equation of the plane is 

r(s,t)=s (2,-3,4) +t (5,10,7)+(5,-6,10), 

or in component form 


y=-3s+10t-6 


[pzas 104 
z=-4s+7t+10 


plot2-ParametricPlot3D[ {2s+5t+5,-3s+10t-6,4s+7t+10} ,{s,-5,5}, 
{t,-5,5},PlotStyle->Opacity[0.3],Mesh->None]; 


Show] plot2,plot1, ViewPoint->{-20,50,10}] 


Figure 1.14. The plane that contains the lines 


rit) = (5, -6, 10) +t (2, -3, 4) 


and 


ro(t) - (-1, 3, -2) « t (5, 10, 7) 


1.7 Distance Examples 


1.7.1 Distance between a point and a line 


Example 1.7. Find the distance from the point (-11,10,20) to the line whose 
parametric equations are x=5-t, y=3, z=7t+8. 


Solution: 


Rewrite the parametric equations of the line in vector form: 


x= 9-1, X 5 -1 
z= 8+/t. Z 8 T 


By Definition 1.2, the line passes through the point B=(5,3,8), and a vector 
parallel to the line is a=(-1,0,7). 


Let the point be P=(-11,10,20). So, the vector BP is 


BP - (-11, 10, 20) - (5, 3, 8) =(-16, 7, 12) 


Let BQ be the projection of the vector BP onto the line (see Figure 1.15). 
By equation (1.10): 


BO -pri BD = a BP a (150,7): (16,7, 12) ,_ 
BQ = proj, BP = 5 a a= ZTE RENE (-1, 0, 7) 


= (-2, 0, 14). 


£-1,0,73.{-16,7,12}/{-1,0,7}.{-1,0,7} {-1,0,7} 


So, the distance from the point P to the line is 


I| QP || = || BP - BO|| 
= ||(-16, 7, 12) - (-2, 0, 14) || = || (-14, 7, -2) || 


= y 249 


= 19.1191. 
Sqrt[ {- 14,7,-2} i {- 14,7,-2} ] 


%//N 


Module[ {a,B,P,Q,r}, 
a={-1,0,7}; 
B={5,3,8}; 
P={-11,10,20}; 
Q=(a.(P-B))/a.a a; 


r-(P-B)-Q; 


line-ParametricPlot3D[ {5-t,3,7t+8}, {t,-1,5},PlotStyle-> 
{Green,AbsoluteThickness[3]},AxesLabel->{"x","y","z"} |; 


points=Graphics3D[ {PointSize[0.05],Point[P],{Red,Point[B]}} ]; 


arrows=Graphics3D|[ {AbsoluteThickness[2],Blue,Arrow[ {B,P}],Red,Arro 
w[{B,(B+a)} ],Blue,Arrow[ {B,(B+Q)} ], {Dashed,Arrow[ {B+Q, 


(B+Qtr)§ ]5 5]; 
texts=Graphics3D[{Text[Style["P",Bold],P*1.08],Text[Style["B",Bold],B*0 
.8], Text[ Style["Q",Bold],(B+Q)* 1.08], Text[Style["a",Bold],(B+a)+ 

{0,-3,0} ], Text[Style[ToString|lengthn[r]],Bold],0.55*(2B+2Q+1)]} ]; 


Print[Style["The distance from P to the line: " 
<>ToString[lengthn[r]],FontSize->14,Bold]]; 


Show|[line,points,arrows,texts,PlotRange->All,Boxed->False,Axes- 
>False, ViewPoint->{5,10,2} | 


] 
The distance from P to the line: 15.7797 


15.7797 
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Figure 1.15. The distance from the point P=(-11,10,20) to the line x=5-t, 
y=3, z=7t+8 


1.7.2 Distance between a point and a plane 


Example 1.8. Find the distance from the point P=(2,8,5) to the plane x-2y- 
2z=1. 


Solution: 


By Definition 1.7 the normal vector to the plane is n=(1,-2,-2). 


Let us choose a point R in the plane. Write R=(1,0,0). So, 


PR - (1, 0, 0) - (2, 8, 5) - (-1, -8, -5) 


Let PQ be the projection of the vector PR onto the vector n (see Figure 
1.16), thus by equation (1.10): 


BO -proj BB = MPR p — C2-23- C1,-8, -5) 4 _ 
PQ = proj PR = N = (1.-2,-2)- (1,-2,-2) ee) 


-(& _50 -®) 
9" 9" 9 


{1,-2,-2}. {-1,-8,-5}/{1,-2,-2}.{1,-2,-2} {1,-2,-2} 


So, the distance from the point P to the plane is 


PQ i= (S, - 5, - 2) l= $ = 8.33333 


Sart[ (25/9,-(50/9),-(50/9)1 . {25/9,-(50/9),-(50/9) J 


lengthn[ {25/9,-(50/9),-(50/9)} ] 


Module[ {n,R,P,Q,r}, 


n={1,-2,-2}; 


R={1,0,03; 
P={2,8,5}; 
Q=(n.(R-P))/n.n n; 


plane=ContourPlot3 D[x-2y-2z==1, {x,-6,8}, {y,-6,8}, {z,-8,8 }, Mesh- 
>None,ContourStyle->{Green,Opacity[0.4]},AxesLabel->{"x","y","z"}]; 


points=Graphics3D[ {PointSize[0.03],Point[P],{Red,Point[R]}}]; 


arrows=Graphics3D][ {AbsoluteThickness[2],Blue,Arrow[ {P,R} ],Red, Arrow 
[{R,(R+n)}],Blue,Dashed,Arrow[ {P,(P+Q)}]}]; 


texts=Graphics3D[ {Text[Style["P",Bold],P*1.08],Text[Style["R",Bold],R+ 
{0.6,0.5,0.1}],Text[Style["Q",Bold],(P+Q)*1.08],Text[Style["n",Bold], 
(R+n)+{0,-0.5,0} ],Text[Style[ ToString[lengthn[Q]],Bold],0.5*(2P+Q)]} |; 


Print[Style["The distance from P to the plane: " 
<>ToString[lengthn| Q]],FontSize->14,Bold]]; 


Show/plane,points,arrows,texts,PlotRange->All,ViewPoint-> (8,-6,151 ] 


] 


The distance from P to the plane: 8.33333 


Figure 1.16. The distance from the point P=(2,8,5) to the plane x-2y-2z=1. 


1.7.3 Distance between parallel planes 


Example 1.9. Find the distance between the two planes given by the 
equations x-3y+2z=1 and x-3y42z-8. 


Solution: 


From the equation of the two planes we see that the normal vector to the 
planes are the same, that is, 


n=(1,-3,2). 


Hence, the two planes are parallel. 


Choose the points P1 and P2 from the two planes x-3y+2z=1 and x- 
3y+2z=8, respectively by setting x=y=0 


P,2(0,0, 1/2) and P2=(0, 0, 4). 


So, 


P4 P» =(0,0, 7/2). 


The projection of P1 P2 onto the vector n by equation (1.10) is 


pon se (HE) (d -1.1 


(* Compute the projection of P4 P2 onto the vector n *) 


(1-321.(0107/21/11,-3,2 10,5321 11:321 


The desired distance is given by 


|| proj, P4 P2 || V 7/2 = 1.87083 


(* The length of Plon P1 P2 *) 


Sqrt[ {1/2,-(3/2),1}.{1/2,-(3/2),1}] 


%/N 


Module[ {P1,P2,n,projP1P2,d}, 
P1={0,0,1/2}; 

P2={0,0,4}; 

n={1,-3,2}; 
projP1P2=(n.(P2-P1)/n.n)n; 
d=Saqrt[projP 1P2.projP1P2]//N; 


points=Graphics3D[ {PointSize[0.025], {Blue,Point[P1]}, 
{Red,Point[P2]}}]; 


arrows=Graphics3D|[ {Arrowheads[0.03],Arrow[{P1,P2}], 
{Dashed,Arrow[{P1,Pl+projPIP2}]}}]; 


texts=Graphics3D[{Text[Style["P1",Bold],P1+ 
{0.2,0.4,-0.4} ],Text[Style["P2",Bold],P2+ {0.2,0.4,0.4} ]} |; 


planes=ContourPlot3D[ {x-3y+2z==1,x-3y+2z==8}, {x,-5,5}, {y,-5,5}, 
{z,0,5},ContourStyle->Opacity[0.2],Mesh->None]; 


Print[Style["The distance between the two planes: " 
<>ToString[d],FontSize->14,Bold]]; 


Show[points,arrows,texts,planes,Boxed-^False,ViewPoint-^ (8,-3,-3] | 


] 


The distance between the two planes: 1.87083 


Figure 1.17. The distance between two parallel planes x-3y+2z=1 and x- 
3yt2z-8. 


1.7.4 Distance between two skew lines 


Two lines in R? are called skew lines if they are neither intersecting nor 
parallel. 


Example 1.10. Determine the distance between the two lines 


8 -1 
ied | 3 | 
15 
and 


0 

0 0 
a-r(a [3] 

1 4]. 


Solution: 


lines=ParametricPlot3D[ { {-1,3,15}+t{8,-1,0}, {0,3,4}+t{0,3,1}}, 
{t,-5,5},AxesLabel-> {"x","y","z"}, ViewPoint-> (30,-30,151] 


Figure 1.18. The two skew lines l and %2. 


Note that the two lines are neither intersecting nor parallel. Thus they are 


two skew lines. 


From the vector parametric equations for the lines, we see that the points 


B4 =(-1, 3, 15) and B2 = (0, 3, 4) are on the first and second line, 
respectively. Hence, 


B; B; = (0, 3, 4)-(-1, 3, 15) = (1, 0, -11) 


For a vector n that is perpendicular to both lines, we may use 


n=a; x 82, where 41 = (8, -1, 0) is a vector parallel to the first line 


and 82 = (0, 3, 1) is a vector parallel to the second line. 


So, 


n-a x a =(-1, -8, 24) 


Cross[ {8,-1,0}, {0,3,1} | 


The projection of the vector B1 B2 onto the normal vector n by 
equation (1.10) is 


. z—E [n- B4B (2 2120 =) 
roi, B4 B, 2| —— |n 2 (E = -2—— 
PrOJn £1 72 | n-n 641’ 641' 641 


(* Compute the projection of B1 B2 onto the vector n *) 


{-1,-8,24}.{1,0,-11}/{-1,-8,24}. {-1,-8,24} {-1,-8,24} 


The desired distance is given by 


|| proj, By B» || = = ~ 10.4669 


(* The length of POln B1 B2 +) 
Sart[ {265/641,2120/641,-(6360/641)}. {265/641,2120/641,-(6360/641)} ] 


%//N 


Module[ {al,B1,a2,B2,n,projB1B2,d}, 
al={8,-1,0}; 

B1={-1,3,15}; 

a2={0,3,1}; 

B2={0,3,4}; 

n—Cross[al,a2 |; 
projB1B2=(n.(B2-B1)/n.n)n; 
d=Sqrt[projB1B2.projB1B2]//N; 


points=Graphics3D[ {PointSize[0.025], {Blue,Point[B1]}, 
{Red,Point[B2]} }]; 


arrow=Graphics3D[ {AbsoluteThickness[2],Arrowheads[0.02],Arrow[ {B1, 
B2}],{Dashed,Arrow[ {B1,B1+projB1B2} |!}]; 


texts=Graphics3D[ {Text[Style["B1",Bold],B1*1.2],Text[Style["B2",Bold], 
B2*0.6]} ]; 


Print[Style["The distance between the two skew lines: " 
<>ToString[d],FontSize->14,Bold]]; 


Show/lines,points,arrow,texts,PlotRange->All, ViewPoint-> 
{30,-30,15},ImageSize->500] 


] 


The distance between the two skew lines: 10.4669 


7 ` | 7 
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Figure 1.19. The distance between the two skew lines h and /2 


1.8 Curvilinear Coordinates 


A point in the plane and space can be labeled by Cartesian coordinates (x,y) 
and (x,y,z), respectively. Cartesian coordinates are also called rectangular 
coordinates. However, sometimes it is more convenient to use curvilinear 
coordinates such as polar coordinates (r,0) in the plane; cylindrical (r,q),z) 
and spherical coordinates (r,0,0D) in space. 


1.8.1 Polar Coordinates 


In polar coordinates, the position vector of a point P is determined by r, the 
distance from the origin to the point P, and by 0, the angle that the vector 
makes with the x-axis. 


Module[ {0,p,er,e8,arrow,point,frame,text}, 

o= {0,0}; 

p={3,2}; 

er-(p-o)/lengthn[p-o]; 

e0—110,-11,11,0] }.er; 

point-Graphics[ {Red,PointSize[0.04],Point[p]} ]; 
arrow=Graphics| {Dashed,Arrow| {0,p}]}]; 


frame-Graphics[ {Hue[0.7],Arrow[ {p,pter} ],Arrow[ {p,pte0} ]}]; 


text=Graphics| {Text[Style["P" Italic, FontSize->Scaled[0.04]],p+ 
{0,-0.3} ], Text[Style["r",Bold,FontSize->Scaled[0.04]], 
{1.8,1.5}],Text[Style["0",FontSize->Scaled[0.04]], 

{0.6,0.2}], Text[Style["er",FontSize- 
>Scaled[0.03]],pter*1.15],Text[Style["e0" ,FontSize- 
>Scaled[0.03]],p+te0*1.15]}]; 


Show/[point,arrow, frame,text,Axes->True,AxesLabel->{"x","y"}] 


eg 


er 


^ ! ! ! - x 
1 2 3 4 


Figure 1.20. A point Pas described by polar coordinates with basis vectors 
er and 86. 


The relations between polar and Cartesian coordinates are given by 


l x=rcos BD, 
(1.18) y=rsin®. 


| ray xy, 
(1.19) 


8 -tan'! £. 
A 


Just like a point P in the plane can be described by two orthogonal unit 
vectors i and j in Cartesian coordinates, the point P can also be 
described by two orthogonal unit vectors €r and 99 (see Figure 1.20). 
Observe that the directions of increasing r and 0 are determined by €r 
and €? , respectively. Thus, it is natural to define the unit vector 9r to be 
the direction of vector r in increasing r divided by its length: 


_d fa] 
e=% qe 


Similarly for the unit vector £9 : 


EL. ô 
eo 2 / & 


With these definitions we can find the expression for the unit vectors €r 
and 99 in terms of i and j. 


Since 

r=x 1ty j, 

r=r cos 0 i +r sin 0 j. 
Hence, 


e, - cos Oi + sin 6j, 
(1.20) &e =-sin Oi + cos 0j. 


Thus, a position vector r in polar coordinates becomes 
(1.21) F=rer . 


Notice that the unit vectors €r and € are different from point to point 
because of the dependency of the angle 0 which is usually a function of 
parameter t such as time in many physical applications. 


When we differentiate the unit vectors with respect to 0 we obtain 


de, P cd a 
do ~~ SIn@i + cos 0j z eo, 
deg __ i singi- 
a cos ĝi - sinOjz-e,. 


Taking the derivatives of €r and ©6 with respect to t gives 


(1.22) 
_ de de, d8 ; 
= = qg at 7 99e 
deg deg dé  ; 
o= g = de at ~~ er 


v 


where dot denotes differentiation with respect to t. 


1.8.2 Cylindrical Coordinates 


Polar coordinates in the plane can be extended to three dimensions in a 
straightforward manner. The polar coordinates are still used in place of the 
x- and y-coordinates and in addition a z-coordinate, which is treated in a 
Cartesian like manner. A point P in space is determined by the r and 0 
coordinates of its projection in the xy-plane and the z-coordinates. Thus, r is 


the distance from P to the z-axis and 0 is the angle between the projection in 
the xy-plane and the positive x-axis (see Figure 1.21). 


Module[ {0,p,0,er,e0,ez,arrow,point,line,frame,text}, 
o= {0,0,0}; 

p={2,2,1}; 

0=ArcTan[p[[2]]/p[[1]]]; 

er- (Cos[0],Sin[0],0] ; 

e0- (-Sin[0],Cos[0],0) ; 

ez={0,0,1}; 
point=Graphics3D[{Red,PointSize[0.04],Point[p]} ]; 


arrow=Graphics3D[ {AbsoluteThickness[1],Dashed, Arrow] { {0,0,0}, 
tpIELTT;pEE21].05 3 1,Arrow[ { {0,0,p[[3]]}. to LET ]EPLE2 TED 1] 313]; 


line=Graphics3D[ ( AbsoluteThickness[1 ],Dashed,Line[ { {p[[1]],p[[2]],0}, 
tpEELTI-PEE2 Tp EE 11 315]; 


frame=Graphics3D[ {Hue[0.7],Arrow[ {p,p+er} ],Arrow[ {p,p+e0 } ], Arrow] fp, 
p*ezj];]; 


text=Graphics3D[ ( Text[Style["P",Italic,FontSize-^Scaled[0.04]],p-- 
{0.3,-0.2,04],Text[Style["r",Bold,FontSize->Scaled[0.04]], 
{1.8,1.4,0$ ],Text[Style["0",FontSize->Scaled[0.04]], 
10.8,0.3,01 ], Text[Style["er",FontSize- 

7Scaled[0.03]].p--er*1.2], Text[Style["e0",FontSize- 
7Scaled[0.03]].p--e0*1.2], Text[Style["ez",FontSize- 
>Scaled[0.03]],ptez*1.2]}]; 


Show [point,arrow,line,frame,text, Axes-^ True, AxesStyle- 
>Directive[AbsoluteThickness| 1]],AxesOrigin-> {0,0,0} ,Boxed- 
>False, Ticks->None, AxesLabel->{"x","y","z"}, LabelStyle- 
>Directive[Bold,Blue]] 


] 


ez 


er 


Figure 1.21. A point P as described in cylindrical coordinates with basis 
vectors €r , ©@ ‚and €z . 


The relations between cylindrical and Cartesian coordinates are given by 


X=rcos O, 
[yzran 0, 
(1.23) (277. 


ray x+y’, 
8 - tan (X), 
(1.24) lz=z. 


We can extend our results from polar coordinates to cylindrical coordinates. 
The three orthogonal unit vectors are €r , ©@ and ©z , expressed in terms of 
i, J, k, the basis vectors of Cartesian coordinates: 


e, =cos ĝi + sin 0j, 
eg - - sin Gi + cos 0j, 
(1.25) ez =K. 


and their derivatives: 


=-sin Oi + cos 0j z eo, 


d ! "— 
292 .. cos Gi - sin@j=-e,, 


Taking the derivatives of €r , ©@ , and €z with respect to t, we obtain 
(1.26) 


, _ de de, d8 


es at ^de at ~ 9° 
deg _ deg dà 

enc coup qp t0 

: de 

és y =0, 


where dot denotes differentiation with respect to t. 


Since 


t=x ity j+z k, 
the position vector r in cylindrical coordinates is represented by 


(1.27) r=re,+Ze, 


1.8.3 Spherical Coordinates 


In spherical coordinates, a point P is determined by r, the distance from P to 
the origin; 0, the angle between the positive z-axis and the position vector of 
P; and &, the angle between the projection of the position vector in the xy- 
plane and the positive x-axis (see Figure 1.22). 

The range of values for r, 0 and Ọ are 


r>=0, 0<=0<=n, 0<=<=2r1, respectively. 


Module[ {0,p,0,@,er,e0,e,arrow,point,line,frame,text} , 
o={0,0,0}; 

p={2,2,1}; 

0=ArcTan[Sqrt[p[[1]]*2+p[[2]]*2)/p{[3 I]; 
=ArcTan[p[[2]]/p[[1]]]; 

er- (Sin[0] Cos[q],Sin[9]Sin[d],Cos[6]}; 

e0- (Cos[0] Cos[o],Cos[0]Sin[d],-Sin[0]) ; 


eP={-Sin[P],Cos[],0}; 


point-Graphics3D[ {Red,PointSize[0.04],Point[p]} |; 
arrow-Graphics3D[ {Dashed, Arrow] {0,p}]}]; 


line=Graphics3D[ {AbsoluteThickness[ 1],Dashed,Line[ 1 {0,0,0}, 
{PLL 1] ].pl[2]],0} 3 ].Line[ t tp ET ]]pTE21].05 . tp LET ]EPTE2 Tp E T] 3131; 


frame=Graphics3D[ {Hue[0.7],Arrow[ {p,p+er} ],Arrow[ {p,p+e0} ], Arrow] fp, 
pte}]}]; 


text=Graphics3D[ {Text[Style["P" Italic,FontSize->Scaled[0.04]],p+ 
{0.3,-0.1,04], Text[Style["r",Bold,FontSize->Scaled[0.04]], 
11.8,1,0.91 , Text[Style["0",FontSize->Scaled[0.04]], 

(0.2,0.2,0.3] , Text[Style[" b" ,FontSize->Scaled[0.04]], 
10.8,0.3,01 ], Text[Style["er",FontSize- 

7Scaled[0.03]].p-er*1.2], Text[Style["e0",FontSize- 
»Scaled[0.03]],p*e0* 1.2], Text[Style["ed",FontSize- 
>Scaled[0.03]],pte®*1.2]}]; 


Show/[point,arrow,line,frame,text,Axes->True, AxesStyle- 
>Directive[AbsoluteThickness| 1]],AxesOrigin-> {0,0,0} ,Boxed- 
>False, Ticks->None,AxesLabel->{"x","y","z"} LabelStyle- 
>Directive[Bold,Blue]] 


] 


Figure 1.22. A point P as described in spherical coordinates with basis 
vectors €r , 96 , and ©¢ . 


The relations between spherical and Cartesian coordinates are given by 


y-rsin sin $, 


| x =r sin 0 cos @, 
(1.28) Z=rcos O. 


ray x +y ez, 

6 =tan | x =) 

z 7 

= a pA 
(1.29) $ -tan (£). 


The three orthogonal unit vectors are defined as 
e, = 2/2], 

e= &/1&, 

eg ZL. 

By using the above definitions the basis vectors can be obtained: 
(1.31) 

e, - sin 8cos $i + sin Osin dj + cos Ok, 

eg - cos 0cos $i + cos sin dj - sin Ok, 
ep - - sin di + cos dj. 

Since 

rxityjtzk, 

the position vector r is represented by 

r=r sin 0 cos D i + r sin 0 sin  j + r cos 0 k. 


Thus, 
(1.30) F7re,, 


Just as unit vectors in polar and cylindrical coordinates, ĉr , ©@ and 96 are 
different from point to point because of the dependency of the angle 0 and c. 
In general, 0 and @ are functions of t such as time in many physical 
applications. 


The derivatives can be computed by hands though it is somewhat more 
involved. So, we use Mathematica to do some calculations. 


First, we define the three orthogonal unit vectors €r , €9 and es. 


Clear[0,0,er,e0,ed] 
er[t ]:- (Sin[0[t]] Cos[@[t]],Sin[6[t]] Sin[[t]],Cos[6[t]]} 
edlt ]:- (Cos[0[t]] Cos[@[t]],Cos[6[t]] Sin[o[t]],- Sin[0[t]] 


ep[t ]:-t-Sin[o[t]], Cos[[t]].0] 
Next, we compute e, ; 
er'[t] 


(1.32) 


è, = (cos 8 cos $ È- sin O sin dd, cos 8 sin $ È + cos $sin 0 $, -sin 8 ò) 


Written in vector form: 


cos 0 cos ġ -sin $ 
&-e| cos O sin $ | + sin8$ | se | 


-sin 8 0 


But from equation (1.31) 96 and ©¢ are 


cos O sin $ cos $ | 
-sin 8 0 , respectively. 


cos 0cos $ | | -sin $ 
and 


Therefore, 


(1.33) è, = Óeo «sin Oo eo f 


Similarly, we compute eg; 


e0'[t] 


é, = (-sin 8 cos $ È- cos Osin $ ¢, -sin Osin $ Ó + cos 8 cos dd, -cos 0 È) 


In vector form: 


_ (sin @cos $ _ (-sing 
eo - -0 | sin 0 sin $ | + cos0 ġ | cos $ | 
cos 0 0 
Therefore, 


(1.34) $e 7 -8 e; «cos 0$ eg | 


Similarly for 96 


edt] 


és = (-cos $ $, -sin $ $, 0) 


In vector form: 
sin 0 cos $ _ (cos 8cos o 
| -cos 0 6$ | | 


é, = -sin 2 sin sin $ cos sin $ 
cos 8 -sin 8 


Therefore, 
(1.35) 


éy = -sin $e, - cos Od eg 


Chapter 2. Curves 


In this chapter, we study the differential geometry of curves in the plane and 
in space. 


A curve in R is assigned a set of two coordinates associated with two unit 
vectors in the plane: 


R°={(x, y) | x,y € R}; 


— , , . . 
whereas a curve in R” , a set of three coordinates associated with three unit 
vectors in space: 


R? ={(x, y, Z) | x,y,z € R} 


There are invariant properties that characterize curves. These include: 
arc length, curvature, and torsion. The discussion in this chapter leads 
to the famous Frenet formulas for curves. 


Initialization 


Clear["Global**"] 
SetOptions[ParametricPlot3D,PlotStyle-^AbsoluteThickness|[2]]; 


SetOptions[ParametricPlot,PlotStyle-— Absolute Thickness|2 ]]; 


2.1 Parametric Curves 


Suppose a particle is moving in space such that its position vector at any 
time t is defined by the coordinates x(t), y(t), and z(t). We denote the position 
vector of the curve by 


r(t=(x(t),y(t),z(t)). 
Assume that the component functions x(t), y(t) and z(t) are differentiable, 


that is, they can be differentiated any number of times. The curve is said to 
be smooth. 


Definition 2.1 


A parametrized curve in R” is a smooth function r: J +R" , where I CR is 
an interval. 


An interval can be of the form [a,b],[a,b),(a,b],[a,00),(a,00),(0,b],(-00,b), or (- 
00,00), where 8; b€R rn this book, we are primarily concerned with n=2 for 
curves in the plane and n=3 for curves in space. 


Definition 2.2 


The velocity vector v of a particle moving in a curver : J > R" at time 
t€ is defined as 


v(t) 2 r' (t) = lim = 
h>0 h 


The speed v(t) of the particle is defined as the magnitude of the velocity 
vector, that is 


v(t)= le (OIL, 


A curve is regular if its velocity vector is a continuous function and its speed 
is nonzero. 


Furthermore, a(t)=r"(t) is called the acceleration vector of the particle 
moving in the curve, provided these derivatives exist. 


Here are some example of curves: 


Example 2.1. A circle of radius 1 


The parametric equation of a circle of radius 1 is given by 


r:I>R?, r(t)=(cost, sint), teR 


A circle is an example of plane curve. 


ParametricPlot[ {Cos[t],Sin[t]}, {t,0,27} ‚ImageSize->200] 


Figure 2.1. A circle of radius 1. 


Example 2.2. A parabola 
The parametric equation of a parabola is given by 


r:I>R’, r(t)=(t,t?), teR 


This is another example of a plane curve that models a particle traveling 
along the parabola y=x”2. We define the parameter t equals the x-coordinate. 


ParametricPlot[ {t,t2}, {t,-1,1},AspectRatio->1,ImageSize->200] 


-1.0 -0.5 0.5 1.0 


Figure 2.2. The parabola y=x^2. 


Example 2.3. A right circular helix of radius 1 


The parametric equation of a right circular helix of radius 1 is given by 


r: >R, r(t)=(cost, sint, t), teR 


ParametricPlot3D[{Cos[t],Sin[t],t}, {t,0,4rt} ,PlotStyle- 
>AbsoluteThickness[4],AspectRatio->1,ImageSize->300] 


Figure 2.3. A right circular helix of radius 1. 


Example 2.4. A toroidal spiral 


The toroidal spiral is a space curve  : I > R? parametrized by 
r(t)=((4+sinnt)cost, (4+sinnt)sint, cos n f) 


te[0, 271]. 


Consider n=2. 


ParametricPlot3D[ ( (47 Sin[2t ])Cos[t], (47 Sin[2t ]) Sin[t], Cos[2t] ) , 
{t,0,27},AspectRatio->1] 


^ 
c 


Figure 2.4. A toroidal spiral. 


Example 2.5. A twisted cubic 


rI2R5 r()-(t0,0)  te[-1, 1] 


ParametricPlot3D[ {t,t®2,t3}, {t,-1,1}, AspectRatio->1] 


0.5 | 


0.01 


| 70.5 


^0.0 


Figure 2.5. A twisted cubic. 


We define some functions in Mathematica that we shall use repeatedly. First 
of all, the length of a vector: 


vectorLength[r ]:4-Sqrt[Simplify[r.r]] 


The unit vectors: 


unitVector[r ]:-Simplify[r/vectorLength[r]] 


Next, we define the velocity vector, speed, and acceleration vector as in the 
following: 


velocity[r ][t ]:-Simplify[D[r[t],t]] 
speed[r ][t ]:-Simplify[vectorLength[velocity[r][t]]] 


acceleration[r ][t ]:-Simplify[D[velocity[r][t].t]] 


As an example, we find the velocity vector, speed, and acceleration vector of 
the twisted cubic. 


twistedCubic[t ]-1t,t^2,t^3] 


velocity[twistedCubic ][t] 


speed[twistedCubic ][t] 


acceleration[twistedCubic |[t | 


Next example, we find the velocity vector, speed, and the acceleration vector 
of the toroidal spiral. 


toroidalSpiral[n ][t ]- ((4Sin[n t])Cos[t], (47 Sin[n t])Sin[t],Cos[n t]} 


velocity[toroidalSpiral[n]][t] 


speed[toroidalSpiral[n]][t] 


acceleration[toroidalSpiral[n] [t] 
2.1.1 Reparametrization 


A curve can be reparametrized. For example, consider the curve: 
F(t) = (x(t), y(t), 2(t)) . 
Suppose there exists a differentiable function h such that F =r ° h , where 


x(t) = x(h(t)), 
y(t) = y(h(t)), 
3(t) = z(h(t)). 


Then, 

X'(t) = x'(h(t)) h' (t), 
y '(t) = y'(h(t)) h' (t), 
Z'(t) 2 z'(h(t)) h' (t), 


where prime denotes differentiation with respect to t. 


The curve f (f) is said to be a reparametrization of r(t). If h'(t)>0, it is called 
a positive reparametrization of r. Similarly, if h'(t)«0, it is called a negative 
reparametrization of r. 


Example 2.6. Consider the following two regular space curves: 


r(t) = (cos t, sin f, t), t e[-2 71, 27] 


? 


f (t) - (cos 2 t, sin2 t, 2 t), t €[-7T, 7i] 


ParametricPlot3D[ f Cos[t], Sin[t],t], (t,-275,2n] ‚PlotStyle- 
>AbsoluteThickness[4],AspectRatio->1,ImageSize->300] 
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Figure 2.6. The space curve r(t)=(cos t,sin t,t). 


ParametricPlot3D[ {Cos[2t],Sin[2t],2t}, {t,-7,2} ‚PlotStyle-> 
{ AbsoluteThickness[4],Hue[0]},AspectRatio->1,ImageSize->300] 


40 -05 00 05 40 
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Figure 2.7. The space curve 


f (t) - (cos 2 t, sin2t, 2t) 


Obviously, the two curves trace out the same path. 
Notice that 
F(t) = (r ° h) (t) = r(h(t)) . 


where h(t)=2t. 


Since h'(t)=2>0, it is a positive reparametrization. 


We say that f is a reparametrization of r and refer to F and r as two 
parametrization of the same path. 


2.1.1.1 Reparametrization by arc length 


The arc length function s(t) on the curve r(t), starting at a is defined as 
(2.1) s(t) = flr" (wlldu 


where ||r'(u)|| is the speed of the curve r(t). 


By the Fundamental Theorem of Calculus, we get 


Q2) a 78 OIO, 


The Inverse Function Theorem implies that the function s(t) has an inverse 
t(s), and that 


eis 
— 
(2.3) id at ls) 


If we define F as a function of arc length s such that 
F(s)=r(t(s)) 


then 


IF Ee eL (S To) CS) =( In) xo) =1 


Thus, curve which is parametrized by arc length has unit-speed. 


We give an example in the following on how to find the reparametrization of 
a curve with arc length. 


Example 2.7. Re-parametrize the curve below with arc length: 


r:I>R?, r(t)=(cosht, sinht, t), t>0 
and show that it has unit-speed. 


Solution: 


First we compute the arc length function s(t) by equation (2.1): 


s(t) = fo llr" Wildu. 
and define the starting point at t=0. 


Clear[r] 


r[t_]:={Cosh[t],Sinh{t],t} 


ParametricPlot3D[r[t], {t,0,2 } ] 


2 
JA 


Q> 


Figure 2.8. The curve parametrized by r(t)=(cosh t,sinh t,t) 


(* Evaluate the arc length function s(t) *) 


Assuming[t^0,Integrate[speed[r][u ]//Evaluate, {u,0,t} ]] 


Note that we have used Assuming command to include the assumption 
t>0 to the Integrate command. 


So, we obtain 


s(t) = V2 sinht. 
t(s) = sinn (7). 


Thus, we can re-parametrize the curve by arc length s as 


ř (s) = r(t(s)) = (cosh (sinn "(7 sinh (sinn *( +), sinn '()) 


rtilde[s |- 
{Cosh[ArcSinh[s/Sqrt[2]]],Sinh[ ArcSinh[s/Sqrt[2]]],ArcSinh[s/Sqrt[2]]} 


Evaluating the magnitude of the velocity vector we obtain 
I| F*][2 1. 


That is, the reparametrized curve has unit-speed. 
speed[rtilde][s] 


After showing the property that curve parametrized by arc length has unit- 
speed, next we show that reparametrization preserves the length of curves. 


Let F(t) bea reparametrization of the curve r(t) given by 

(2.4) f (t) - (r » h) (t) = r(h(t)) | 

where h is a differentiable function and h'>0 for positive parametrization. 
Then 


F'(t) -r'(h(t)) h' (t), 
IF (I= Ir’ (A) ]] h' (f) 


We compute the length of r(t) within the domain of its definition (a,b): 


fe ur edu. 


Using the change of variable, u=h(t), whose domain of definition (c,d), we 
get 


du=h'(t) dt. 


So, the integral becomes 


fÊ lr (u) lidu = f ur (h(t) [Lh (at 


But 
Ir (I= I| e" (h(0) |] ^ (f) 
, thus 


(2.5) 


fe lr wlldu= fie Ollat 


This implies that the positive reparametrization preserves the arc length. 


Similarly, it can be shown for negative reparametrization where h'«0, the arc 
length is preserved. Hence, the arc length is a geometric invariant. 


2.1.2 The Frenet Formulas 


In this section we shall consider unit-speed curves, that is, curves 
parametrized by arc length s. 


Letr: 1 >R? bea unit-speed curve, where J CR is an interval. So, 


lr'(s)|21 foreach sin 7 


Define T(s)=r'(s). 
T is called the unit tangent vector field of r. 


Since T has constant length, its derivative T'(s)=r''(s) measures the way 
the curve is turning in RÈ. T'(s) is called the curvature vector field of r. 


A real-valued function K>=0 such that 
(2.6) 
K(s) =|| T' (s) || for all se 7 


is called the curvature function of r. 


In other words, the curvature xK of a path in R? is the rate of change of 
the direction of T per unit change in distance along the path. It 
measures the failure of the curve to be linear. 


Since ||T|-T - T=1. Differentiating ||T|| gives 
2T-T'=0. 


So, T' is always orthogonal to T, that is, normal to the curve r. 


Define an unit normal vector field N(s) as 


_ Ts) 
(2.7) NS) = rrr. 


Since T' is always orthogonal to T, we have 
(2.8) T(s): N(s) 20. 


N(S) is often called the principal normal vector field of r. 


By definition of the curvature function of r (equation 2.6) we obtain 


LiT 
(2.9) N(s--T'(s 


Define a vector field B(s) such that 
(2.10) B(s) = T(s) x N(s) | 


B(s) is called the binormal vector field of r. 


The three vectors T(s), N(s), B(s) constitute a Frenet frame on r. 
In summary, 


(2.11) 


T(s)=r'(s), N(s)=<T'(s),  B(s)=T(s) x N(s) 


(2.12) 
T+ T=1, N-N-1, B-B=1. 
T- N-0, T-B=0, N-B=0. 


Next, we establish the derivatives of T', N', B' in terms of T, N, B. 
We have T-r', 


so T'=r"=K N. 


Now, differentiate T - B=0 gives 
T-B-T:-B'-0, 


T" B—T- B'. 


Substituting T'=K N into the above equation gives 
KN:B-—T:-B'. 


But N - B=0, thus 


T : B'=0. 


Since T : N=0, it suggests that B' is a scalar multiple of N. 
Define 


(2.13) B'--rN 


ki 


where 1 is defined as the torsion function of the curve r. 


The torsion of a curve in space measures the failure of the curve to lie in a 
plane. Hence, the torsion of a plane curve is zero. 


Theorem 2.3 (Frenet Formulas for unit-speed curves) 


ifr: I >R? isa unit-speed curve with positive curvature « and torsion T, 
then 


I= KN, 
N'- -KT +TB, 
(2.14) B's -TN. 


Proof. 


The first and third formulas are the definition of curvature and torsion, 
equation (2.9) and (2.13), respectively, so we just need to verify the second 
formula. 


We use orthonormal expansion to express N' in terms of the frame field 
(T, N, B): 


N'2(NT)T + (N-N)N + (N-B)B, 

where N'T, N'N, and N'-B are coefficients of the expansion. 
Differentiating N -T=0, we get 

N'T + N-T'=0 


N'T =- N-T'=- N+ k N=-k. 
Since N is a unit vector field, N'-N=0. 


Differentiating N -B=0, we get 
NB + N-B'=0 
N'B =- N:B'7- N : (-t N)=t. 


Hence, the Frenet formulas. 


Example 2.8. Show that the following curve has unit-speed. Compute the 
Frenet frame T, N, B. 


r(s) =(! arse t c = s) 


Solution: 


Clear[r] 


r[s_]={1/3 (1+s)(3/2),1/3 (1-s)(3/2),1/Sqrt[2] s} 


(* Compute the speed of the curve *) 


speed[r |[s] 


ParametricPlot3D[r[s], {s,0,10},ViewPoint-> {1,-1,4}] 


0.3 
0.4 


0.1 
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Figure 2.9. The space curve 


r(s) = (i (1 S92, 1 (1- S92, = s) 


(* Compute the unit tangent vector T *) 


uT-D[r[s],s]//Simplify 


(* Compute the unit normal vector N by equation (2.7) *) 


uN=unitVector[D[uT,s]]//Simplify//PowerExpand 


(* Compute the unit binormal vector B by equation (2.10) *) 


uB=Cross[uT,uN ]//Simplify 


uT.uT//Simplify 
uN.uN//Simplify 


uB.uB//Simplify 


uT.uN//Simplify 
uT.uB//Simplify 


uN.uB//Simplify 


The Frenet formulas, equation (2.14) in Theorem 2.3 are valid only for unit- 
speed curves, that is, curves parametrized by arc length. In practice, 


however, given an arbitrary-speed curve it may be difficult to re-parametrize 
it into a unit-speed curve. Thus, we need to have Frenet formulas for 
arbitrary-speed curves. This leads to the following lemma: 


Lemma 2.4 (Frenet Formulas for arbitrary-speed curves) 


: 3. . A . 
If r: Z >R” is a regular curve with positive curvature x and torsion t, then 


(2.15) 

i ig — KVN, 

N'= -KvT +TVB, 
B = -TVN. 

Proof. 


Let F(S(4)) be a unit-speed reparametrization of r. 
Write F(t) = F (s(f)) , 


where s(t) is the arc length function. 


Let (T, N, B) be the Frenet frame of F and denote the curvature and torsion 
off by K and £ , respectively. 


By definition: 
(2.16) 


T(t)=T(s(t)), N(t)=N(s(t)),  B(t)- B(s(t) 


(2.17) 
K(t)=K(s(t), T(t) = t(s(t)) 


Using chain rule, the derivative of T with respect to t gives 


dT _ AT(s) ds _ y ATs) 


at ds dt ds , 
ds 
Vs 
where dt 
But 
d T(s) 


= T'(s-K(s)N(s -kN 


ds 


by equation and (2.14), (2.16) and (2.17). So, 


dt ds at ds 
dN - = = 
(S) -.RN'--kT« tB--k T4 1B 
ds 
So, 
dN 


—=-KVT+TVB 
dt . 


For B: 


dB(t) _ dB(s) ds y 289 


dt ds at ds 


d Bs) =B'=--TN=-TN 


Note that for curves parametrized by arc length, v=1, so we get the Frenet 
formulas in Theorem 2.3. 


The Frenet equations can be written compactly using matrix notation: 


(2.18) 

T' O k O\/T 
N' = vi [-« OT In 
B' 0 -r 0/\B 


Now, we can find the expression for velocity vector and acceleration vector 
in terms of the Frenet frame. 


Let r(t) be a regular curve with arbitrary-speed function v, then the velocity 
vector is just 


(2.19) v-vT, 


where T is the unit tangent vector to the curve. 


Taking the derivative of v with respect to t gives the acceleration vector: 


aev'=%T+y2 
at at 
By Lemma 2.4: 
- dv 2 
(2.20) a=, T+kv N 


From this result, we notice that the acceleration vector lies in the plane 
spanned by T and N. This plane is called the osculating plane of the 
curve. 


By equation (2.10) the unit binormal vector B is perpendicular to both T 
and N: 


(221) B=TxN. 


Theorem 2.5 


: 3. ; 
If r: Z >R? is a regular curve with nonzero curvature x, then 


(2.22) 
_ liv x al _ (vx a)-a’ 
Iv? iiv x all? 
(2.23) 
T=— B- 42 N-BxT 


: = 
IIvIl Iiv x all’ 


Proof. 

From equation (2.19), (2.20) and (2.21): 

(2.24) 

v x a=(vT) x (& T«kv? N) 
-VETTxTekKV TxN 
=KV°B. 

(2.25) 


3 3 
[vx al[=|]Kv"]| [Bll=«v 


Since k>=0, v>0 and ||B||=1 


— llv x all 
T 3 
Ilvil 


This 1s the first equation of (2.22). 


To find t we take the derivative of a with respect to t, thus 


2 
a'z(£ T«xv?^N|'2 4X T+% Trek V N«2kv ENE KN 
dt dt dt dt 


Using equation (2.15): 


a'- VY Teky Nek V N«2kv ČN- KV T+KV°TB 


Taking the dot product of (V * 8) and a' gives 
(v x a) - a'- (kv? B)- 
(£x Tev N+K'v?N+2kv ČN- Kv Tekv? TB) 


=k? VÓ r, 


where we have used the orthonormality of T, N, and B. 


245 2 
But from equation (2.25) we have KV = IIv x all" ‚thus 
_ (vx a)-a’ 


E 2 
lv x all”, 


So, equation (2.22) is proved. 


v 


The first equation of (2.23) lvii is equivalent to equation (2.19). 


From equation (2.24) and (2.25), we get the second equation of (2.23): 


vxa 
liv x all . 


By definition of vector cross product, taking the cross product of 
equation (2.21) with T leads to the third equation of (2.23): 


Bx T=(T x N) x T=-T x (T xN) 
=-[(T-N)T-(T- T)N] 
=N. 


Next, the curvature and torsion of a curve is defined accordingly using 
Mathematica. 


(* Define the curvature of a curve by equation (2.22) *) 
K[r_|[t_ |: 

Module {tt,a,b}, 

a=vectorLength[Cross[r'[tt], r"[tt]]]; 
b-vectorLength[r'[tt]]^3; 

Simplify[a/b/.tt->t] 


] 


(* Define the torsion of a curve by equation (2.22) *) 
i[r ][t |: 

Module {tt,a,b}, 

a-(Cross[r' [tt], r"[tt]]).r'" [tt]; 

b=Cross[r'[tt], r"[tt]]; 


Simplify[a/b.b/.tt->t] 


Next, we define some modules in Mathematica for the Frenet frame based 
on equation (2.23): 


(* Define the unit tangent vector field: T *) 
UT[r _][t_]:= 

Module[ {a,tt}, 

a-r'[tt]; 

Simplify[o/vectorLength[a ]/.tt-^t] 


] 


(* Define the unit binormal vector field: B *) 
UB[r ][t ]: 

Module[ {a,tt}, 

a—Cross[r [tt], r"[tt]]; 
Simplify[o/vectorLength[a ]/.tt-^t] 


] 


(* Define the unit normal vector field: N *) 


UN[r ][t ]:-Simplify[Cross[UB[r][t], UT[r][t]]] 


(* Define the Frenet frame on curve r at t=t0 *) 
frenetFrame[r_,t0_]:=Graphics3D[{AbsoluteThickness[1.5], 
{PointSize[0.03],Point[r[t]]}, (Red, Arrow] {r[t],r[t]+UT[r][t]}]}, 
{Green,Arrow| (r[t],r[t] -UN[r][t]) ] 4; {Blue,Arrow[ {r[t],r[t]+UB[r][t]}]}, 
Text[" T", r[t]-1.05 *UT[r][t] , Text["N", r[t]-1.05 *UN[r][t] , Text[" B", 
r[t]+1.05*UB[r][t]]}/.t->t0] 


Example 2.9. A curve r(t) parametrized by 

r(t)=(t cos t,t sin t,t) 

lies on a double cone and passes through the vertex at t=0. 

(a) Find the velocity vector, speed and acceleration vector of the curve. 
(b) Find the arc length of the curve starting from the origin to t=2. 

(c) Find the curvature and the torsion. 

(d) Find the Frenet frame. 


(e) Plot the Frenet frame at t=0. 


Solution: 


Clear[rhelix] 


rhelix[t_]={t Cos[t],t Sin[t],t} 


curvePlot=ParametricPlot3 D[rhelix[t], {t,-42,47} , AxesLabel-» ("x","y","z"1] 


~y 


Figure 2.10. The curve r(t)=(t cos t,t sin t,t). 


(a) 


(* Compute the velocity vector *) 


velocity[rhelix][t] 


(* Compute the speed *) 


speed[rhelix][t] 


(* Compute the acceleration vector *) 


acceleration[rhelix ][t | 


(b) 


The arc length of the curve starting from the origin to t=2 can be evaluated 
using equation (2.1) 


sz fe || (cos t -tsint, tcost «sint, 1)||dt 

- V6 «sinh (V2) 

= 3.59571- 
(* The arc length of the curve from t=0 to t=2 *) 
Integrate[speed[rhelix ][u |//Evaluate, (u,0,2 | 


%//N 


(c) 


(* The curvature *) 


x[rhelix][t] 


(* The torsion *) 


t[rhelix][t] 


(d) 


(* The Frenet frame: T, B, N *) 
UT [rhelix][t] 
UB[rhelix]|[t] 


UN[rhelix ][t] 


UT[rhelix][t] . UT[rhelix][t]//Simplify 
UB[rhelix][t] . UB[rhelix][t]//Simplify 


UN[rhelix][t] . UN[rhelix][t]//Simplify 


UT[rhelix][t] . UB[rhelix][t]//Simplify 
UT[rhelix][t] . UN[rhelix][t]//Simplify 


UB[rhelix][t] . UN[rhelix][t]//Simplify 


(e) 


curvePlot=ParametricPlot3 D[rhelix[t], (t,-(1/2),1/3] ,PlotRange-^ {4-1,1}, 
{-1,1}, {-1,1}},AxesLabel->{"x","y","z"}]; 


Show[curvePlot,frenetFrame[rhelix,0], ViewPoint-> {1/4,-1,2}] 
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Figure 2.11. The Frenet frame for the curve r(t)=(t cos t,t sin t,t) at t=0 (the 
origin). 


The following animation shows the Frenet frame as it traces out the curve: 


curvePlot-ParametricPlot3D [rhelix[t], t,-x,1] ,AxesLabel-» ("x","y","z"Y]: 
Module[ {a,B}, 

a=curvePlot; 

B=rhelix; 


Manipulate[Show][o,frenetFrame[ß,t0],PlotRange-> { (-4,4]),1-4,41,1-4,41 1 ], 
{ {t0,-7} QU) ] 


] 


to [) 


Animation 2.12. The Frenet frame as it traces out the curve r(t)=(t cos t,t sin 
t,t). 


Example 2.10. Consider the toroidal spiral defined in Example 2.4. Let n=2, 
r(t)=((4+sin2t)cost, (4+sin2t)sint, cos2f) 

(a) Find the velocity vector, speed and acceleration vector of the curve. 

(b) Find the arc length of the curve starting from the origin to t=2. 

(c) Find the curvature and the torsion. 

(d) Find the Frenet frame. 


(e) Plot the Frenet frame at t=z/2. 


Solution: 


(a) 


(* Compute the velocity vector *) 


velocity[toroidalSpiral[2]][t] 


(* Compute the speed *) 


speed[toroidalSpiral[2 ]][t] 


(* Compute the acceleration vector *) 


acceleration[toroidalSpiral[2]][t] 


(b) Using equation (2.1) we get: 


s=9.70111. 


(* The arc length of the curve from t=0 to t=2 *) 


NIntegrate[speed[toroidalSpiral[2]][u |//Evaluate, (u,0,2 ) ] 


Note that we have used NIntegrate command to compute the arc length 
numerically because analytical integration will take long time to complete. 


(c) 


(* The curvature *) 


K[toroidalSpiral[2 ]][t] 


(* The torsion *) 


1 [toroidalSpiral[2 ]][t] 


(d) 


(* The Frenet frame: T, B, N *) 
UT[toroidalSpiral[2 ] |[t] 
UB[toroidalSpiral[2]][t] 


UN[toroidalSpiral[2 ]][t] 


UTr[toroidalSpiral[2]][t] . UT[toroidalSpiral[2 ] |[t|//Simplify 
UB[toroidalSpiral[2]][t] . UB[toroidalSpiral[2 ]][t]//Simplify 


UN[toroidalSpiral[2]][t] . UN[toroidalSpiral[2]][t]//Simplify 


UT[toroidalSpiral[2]][t] . UB[toroidalSpiral[2]][t]//Simplify 
UT[toroidalSpiral[2 ] t] . UN[toroidalSpiral[2]][t]//Simplify 


UB[toroidalSpiral[2]][t] . UN[toroidalSpiral[2] ][t]|//Simplify 
(e) 


curvePlot=ParametricPlot3D[ {(4+Sin[2t])Cos[t],(4+Sin[2t])Sin[t],Cos[2t]}, 
{t,0,2n},AxesLabel->{"x","y","z"}] 


Figure 2.13. The toroidal spiral r(t)=((4+sin 2 t)cos t,(4+sin 2 t)sin t,cos 2 t). 


Show[curvePlot,frenetFrame|[toroidalSpiral[2],2/2],PlotRange-> { {-5,5}, 
{-5,5}, {-2,2} 3] 


Figure 2.14. The toroidal spiral r(t)=((4+sin 2 t)cos t,(4+sin 2 t)sin t,cos 2 t) 
with the Frenet frame at t=7/2. 


Module[ {a,B}, 
a=curvePlot; 
B=toroidalSpiral[2]; 


Manipulate[Show][o,frenetFrame[ß,t0],PlotRange->{{-5,5},1-5,5},{-2,2} }], 
{ {t0,0},0,27,27/30} ] 


] 


to [] 


Animation 2.15. The Frenet frame as it traces out the curve r(t)=((4+sin 2 
t)cos t,(4+sin 2 t)sin t,cos 2 t). 


In the next example, we will illustrate vectors fields related to a plane curve. 
In this case, the binormal vector field is always perpendicular to the plane. 


For this purpose, we define below a Mathematica module called planeFields 


to show velocity, speed, acceleration, unit tangent vector, and unit normal 
vectors fields for any curve in the plane. 


planeFields[r ,t0 ]|:-Module[ {uT,uN}, 
uT[r][t ]:-Simplify[unitVector|[velocity|[r][t]]]; 


uN[r][t ]:-Simplify[unitVector[ D[uT[r] 
[t],t]]];Graphics[ f (Magenta, PointSize[0.03],Point[r[t]]},{Red,Arrow[ {r[t], 


r[t]+velocity[r][t]} ]}, {Green, Dashed, Thickness[0.01],Arrow[ {r[t], r[t]+uT[r] 
[t]} ]}, {Blue,Arrow[ {r[t], r[t]+acceleration[r][t]}]},{Dashed,Arrow| {r[t], 
r[t]+uN[r][t]}]}, Text["v",r[t]--1.05*velocity[r] 
[t]],Text["a"r[t]+1.05*acceleration[r][t]],Text["T"r[t]+1.2*uT[r] 

[t]] Text["N",r[t]--1.2*uN[r][t]] 


1.t-5t0] 


Example 2.11. The cycloid is a plane curve defined parametrically by 
r(t)=(t-sin t,1-cos t), teR. 

(a) Find the velocity vector, speed and acceleration vector of the curve. 
(b) Find the length of the cycloid from t=0 to t=4An. 

(c) Find the curvature and torsion. 


(d) Plot the related vector fields at t=27/3. 


Solution: 


cycloid[t ]:-1t-Sin[t], 1 -Cos[t]] 


cycloidPlot= ParametricPlot[Evaluate[cycloid[t]], {t,0,47} ,PlotRange-^ 
{ {-1,52}, {-1,3}} , ImageSize-^ Large] 


Figure 2.16. The cycloid r(t)=(t-sin t,1-cos t). 


(a) 


(* Compute the velocity vector *) 


velocity[cycloid][t] 


(* Compute the speed *) 


speed[cycloid][t] 


(* Compute the acceleration vector *) 


acceleration[cycloid |[t] 


(b) Using equation (2.1): 


(* The length of the cycloid from t=0 to t=4z *) 


Integrate[speed[cycloid][u |//Evaluate, {u,0,47} | 


(c) 


Since our curvature and torsion functions are defined for curve in space, we 
need to first convert the plane curve to space curve by adding a zero 
components for the z-axis. Thus, 


cycloid3D[t ]-Append[cycloid[t],0] 


(* The curvature of the cycloid *) 


K[cycloid3D][t] 


(* The torsion of the cycloid *) 


t[cycloid3D]|[t] 


Apparently, the torsion is zero because the curve lies in the plane. 


(d) 


Show[cycloidPlot,planeFields[cycloid,27/3]] 


Figure 2.17. The cycloid r(t)=(t-sin t,1-cos t) with the velocity vector, 
acceleration vector, unit tangent vector and the unit normal vector at t=27/3. 


Here is an animation of the movement of the related vector fields as they 
trace out the path of the cycloid: 


Module[ {a,B}, 

a=cycloidPlot; 

B=cycloid; 

Manipulate[Show[oa,;planeFields[p,t0]], { {t0,0.1},0.1,42,27/20} | 


] 


Animation 2.18. The vector fields as they trace out the path of the cycloid 
r(t)=(t-sin t,1-cos t). 


Example 2.12. Consider the cardioid r : I > R? , where I CR is defined by 
r(t)-2 cos t (1+cos t) i + 2 sin t (1+cos t)j, O<=t<=2z. 

(a) Find the velocity vector, speed and acceleration vector of the curve. 

(b) Find the length of the cardioid. 

(c) Find the curvature and torsion. 


(d) Plot the related vector fields at t=1. 


Solution: 


cardioid[t_]:={2 Cos[t] (1-Cos[t]),2 Sin[t] (1+Cosf[t]) } 


cardioidPlot= ParametricPlot[Evaluate[cardioid[t]], {t,0,27},PlotRange-> 
{ {-4,7} > {-4,4} 3] 


Ar 
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Figure 2.19. The cardioid r(t)=2 cos t (1+cos t) i + 2 sin t (1+cos t) J. 


(a) 


(* Compute the velocity vector *) 


velocity[cardioid][t] 


(* Compute the speed *) 


speed[cardioid |[t] 


(* Compute the acceleration vector *) 


acceleration[cardioid |[t] 


(b) 


(* The length of the cardioid *) 


Integrate[speed[cardioid][u |//Evaluate, {u,0,27} | 


(c) 


Since our curvature and torsion functions are defined for curve in space, we 
need to first convert the plane curve to space curve by adding a zero 
components for the z-axis. Thus, 


cardioid3D[t |-Append[cardioid[t],0] 


(* The curvature of the cardioid *) 


K[cardio1d3D][t] 


(* The torsion of the cardioid *) 


t[cardioid3D][t] 


Apparently, the torsion is zero because the curve lies in the plane. 


(d) 


Show[cardioidPlot,planeFields[cardioid, 1]] 


Ar 
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Figure 2.20. The cardioid r(t)=2 cos t (1+cos t) i+ 2 sin t (1+cos t) j with 
the velocity vector, acceleration vector, unit tangent vector and the unit 
normal vector at t=1. 


Below is an animation of the movement of the related vector fields as they 
trace out the path of the cardioid: 


Module[ {a,B}, 
o=cardioidPlot; 
B=cardioid; 


Manipulate[Show[oa,planeFields|[B,t0]], { {t0,0} ,0,27,27/25} ] 


to | 


Animation 2.21. The movement of the related vector fields as they trace 
out the path of the cardioid r(t)=2 cos t (1+cos t) i+ 2 sin t (1+cos t) j. 


As we have mentioned earlier, the velocity and acceleration vectors lie in 
the osculating plane spanned by T and N (equation 2.20). The vectors T 
and N contain the information about the direction in which the curve is 
heading and the direction in which the curve is bending, respectively. In 
single variable calculus we know that a line with unit tangent vector T is 
a best linear approximation to the curve. From the animation above, 
however, it suggests that the path of a curve can also be approximated 
by a circle in the osculating plane. So, this leads us to the following 
discussion about osculating circle. 


2.2 Osculating Circles 


In this section, we learn how to construct osculating circles to curves. 
Before doing so, we shall review again the curvature of curves. Note that 
the curvature formula we obtain in Theorem 2.5 involves cross product of 
velocity vector and acceleration vector which is only defined in three- 
dimensional space. Therefore, we shall need to use other method to 
compute the curvature and the unit normal vector of curves in the plane. 


Recall Lemma 2.4 where we have 
(2.26) T'=KVN. 
Thus, 


ITII= IK] vi TNT, 


But ||N||=1, «>=0 and speed is always positive, so we obtain 


_ IT 
(2.27) a 


For curves that are parametrized by arc length, this is just K (s) = || T" (s) || 
which we have encountered in Section 2.1.2. 


The curvature for plane curves is defined below using equation (2.26): 


K2[r_][t_]:= 


Module[ {x}, 
«/.Solve[D[UT[r][t],t]==«*speed[r][t]* UN[r][t],1][ [1] ]//Simplify 


] 


A word of caution: since UT, UB and UN are vectors defined in three- 
dimensional space, we shall need to convert the plane curve to space curve 
by adding a vanishing z-component before submitting it to «2. 


In Section 2.1.2 we define a unit normal vector field N(s) (equation 2.7) by 


T' (s) 
s)=— 
(s) ITS. 

For S= S(t) , 


Taking the norm, we get 
II T" (s) || = : IIT 1p 


Thus, 


(s) IL - TH 
IT (SI TOL, 


The corresponding unit normal vectors are identical, therefore, N is 
independent of parametrization. By equation (2.21), the binormal 
vector B also turns out to be independent of parametrization. 


Therefore, the Frenet frame {T, N, B} is independent of 
parametrization. 


Theorem 2.6. Curvature of a curve in the plane. 


Let r(t)=(x(t), y(t)) be a regular curve in R° . The curvature at the point 
(x(t),y(t)) is given by 


CS 
(2.28) xy?) 


where prime denotes differentiation with respect to t. 
Proof. 


First, we convert the plane curve to a space curve by adding a zero z- 
component and then use Theorem 2.5 (equation 2.22) to compute the 
curvature of the curve. 


— lv x all 
3 
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We use Mathematica to prove this theorem: 
Clear[r,x,y] 
r[t_]:={x[t] y[t],0} 


vectorLength[Cross[r'[t], r"[t]] vectorLength[r'[t]]^3 


Hence, 


m typ? Vt 


Example 2.13. Show that the curvature of a circle with radius p is 


x2=1/p. 


Solution: 
The parametric equation of a circle with radius p is given by 


r(t)=(p cos t,p sin t), t e [0, 270]. 


First, we need to add a vanishing z-component to make the curve three- 


dimensional. 


Clear[r,p,x,y] 


r[t_]:={p Cos[t],p Sin[t],0} 


(* Compute the curvature using equation (2.26) *) 


«2[r][t]//PowerExpand 


Alternatively using Theorem 2.5, first equation of (2.22) to compute the 


curvature, we obtain the same result. 


(* Compute the curvature using equation (2.22) *) 


K[r][t|//PowerExpand 


Example 2.14. A plane curve called the spiral of Cornu is defined 
parametrically by 


r(t)-(x(t).y(t)). 


pc uw Me 
ER x(t) = þh sin zdu ca y(t) = f cos du 


Use Theorem 2.6 to show that the curvature is lÉ l. 
Solution: 


(* Define the spiral of Cornu *) 
cornuSpiral[t ]:— 

Module[ {x,y}, 

x[t]=Integrate[ Sin[u%2/2], {u,0,t} ]; 
y[t]=Integrate[Cos[u’2/2], {u,0,t} |; 
ix[t]y[t]} 

] 


ParametricPlot[cornuSpiral[t]//Evaluate, {t,-372,37} ] 
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Figure 2.22. The spiral of Cornu. 


(* Compute the curvature using Theorem 2.6, equation (2.28) *) 
Module[ {x,y}, 

x[t_]=cornuSpiral|[t][[1]]; 

y[t_]=cornuSpiral|[t][[2]]; 

1/(x'[t}2+y'[t]}42)(3/2) Abs[x'[t]*y"[t]-x"[t]*y'[t]]//Simplify 


] 


We can also compute the curvature of the Cornu spiral using K2 module. 
However, the curve needs to be made three-dimensional by adding a 
vanishing z-component before submitting it to the module. 


cornuSpiral3D[t ]:-Append[cornuSpiral[t],O | 
K2[cornuSpiral3D][t]//PowerExpand 


Corollary 2.7. Let r be a curve parametrized by arc length in R° . The 
turning angle at a point P on r(s) is the angle between the unit tangent 
vector and the x-axis at P. Let 0(s) be the turning angle at r(s). The 
curvature at P is 


_ | 98 
2.29) 9 7 V T. 
Proof. 


Since r is a plane curve parametrized by arc length, the unit tangent 
vector is 


T(s)-v(s), 


T'(s)=v'(s)=a(s). 


Notice that T(s)=(cos 0(s),sin 0(s)), where 0(s) is the angle between the unit 
tangent vector and the x-axis at P (see Figure 2.23). 


Module[ {r,a,u,v,s,z}, 


t[s_]={s,s*2}; 
a-l; 

u-r[a |; 
v-r[a]; 


z[0]=ParametricPlot[Evaluate[r[t]], {t,0,2} ,PlotRange-^ 1 {0,2.5}, 
{0,4}, AspectRatio->1 |; 


z|1]- (Hue[0.7], AbsoluteThickness[3 |, Arrow] {u,u+v}]}; 
z| 2 |={Dashed,Hue[0.7],AbsoluteThickness[3],Line[ fu,u* 11,0) 1]; 
z[3]- ( Hue[0.7],PointSize[0.03],Point[u] ) ; 


z[4]-Circle[u,0.2, (0, Arc Tan[v[[2 TI/vLL1 TI] ];z L5] Text["r(s)" u^ 
(-0.4,-0.31];z[6]- Text["r(s)" u-1.1v];z[7]- Text["0(s)",u-- (0.3,0.21]; 


z[8]- Text[Style["P" Italic], (0.9,1.1] ]; 
Show[z[0],Epilog->Array[z,8 |, AxesLabel-^ pat 1] 


] 
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Figure 2.23. The unit tangent vector r'(s) is making an angle 0 (called the 
turning angle) with the x-axis at P. 


We compute the curvature by using Theorem 2.5 (equation 2.22) 


— llv x all 
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We use Mathematica to prove this corollary: 


Clear[T | 


T[s_]:={Cos[8[s]],Sin[8[s]],0} 


(* Compute the curvature using Theorem 2.5 *) 


vectorLength[Cross[T[s], T'[s]]]/vectorLength[T[s]]*3 


Hence, 


K(S) = |< 


Definition 2.8. 


: 2 
Let T: (a, b) eZ 3 R^ pea regular plane curve with nonzero curvature 
K2(t) where a 


EN 
2.30)" * 20 NO. 


The radius of this circle, p-1/k2, is called the radius of curvature of the 
curve at the corresponding point. 


Though it is defined for plane curves, the same definition is also 
applicable to space curves as is illustrated in the examples below. 


The osculating circles lie in the plane spanned by T(t) and N(t) referred 
to as the osculating plane. The centers of all osculating circles to a 
curve form another curve called the evolute to the curve. 


As we have seen in Example 2.12, a circle of radius 1/K2 has curvature 
K2, thus the curve and the osculating circle has the same curvature at 
point of contact. 


Since the osculating plane is spanned by T(t) and N(t), the osculating 
circle of radius p can be parametrized by 


8» pcos 0 (-N(t)) + psin 0 (T(t)), 0 e [O, 2 7r] 


, 


where N points toward the center of the circle. 
Using Definition 2.8, the points on the circle is then 


r(t) + — N(t) + pcos 0 (-N(f)) + p sin 8 (T(t) 


9 


r(t) + = [(1 - cos 6) N(t) + sin @ T(t)] 


Let us implement this in Mathematica by defining the module oscCircle 
to draw an osculating circle to the curve, and oscCenter to draw the 
center point of the osculating circle. 


(* Define the osculating circle of the curve r at t0 *) 

oscCircle[r .t0 ]:— 

Module[{a}, 

Q—r; 

ParametricPlot3D[Evaluate[a [t]--1/Kk2[a] [t] ((1-Cos[0]) UN[o][t]-- Sin[0] 


UT [a] [t])/.t->t0],{0,0,27},PlotStyle-> 
{Red,Dashed,AbsoluteThickness[2]},PlotRange->All] 


| 


(* Define the center point of the osculating circle *) 
oscCenter[r_,t0_|:= 

Module[{a}, 

9:—r; 


Graphics3D[/PointSize[0.03],Red,Point[o [t] -L/k2[a] [t] UN[a] [t]]}/.t- 
>t0] 


| 


Next, we define point function to plot a point in the curve: 


(* Define a function to plot a point in the curve r at t0 *) 


point[r_,t0_]:=Graphics3D|{PointSize[0.03],Blue,Point[r[t]]}/.t->t0] 


Example 2.15. A parametric equation of the helix is defined by 
r(t)=(cos t,sin t,t), wherefeR. 

(a) Compute the curvature of the curve. 

(b) Plot the curve and its osculating circle at t=0. 


(c) Plot the evolute to the curve on the same graph. 


Solution: 


(a) 


helix[t_]:={Cos[t],Sin[t],t} 


(* The curvature of the helix *) 


K2[helix][t] 


(b) 


helixPlot=ParametricPlot3 D[Evaluate[helix[t]], {t,-42,47},PlotRange-> 
{{-6,6},{-6,6},{-12,12}}] 


-5 


on 


Figure 2.24. The helix r(t)=(cos t,sin t,t). 


Show [helixPlot,point[helix,0],oscCircle[helix,0],oscCenter[helix,0], Plot 
Range->{{-6,6},{-6,6},{-12,12} 3] 


5 -5 


TI 
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Figure 2.25. The helix r(t)=(cos t,sin t,t) and the osculating circle at t=0. 


Module[t{},Manipulate[Show/[helixPlot,point[helix,t0],oscCircle[helix,t0 
],oscCenter[helix,t0|,PlotRange->{{-6,6}, {-6,6},{-12,12}?], 
{110,-377},-377,477,277/20%] 


| 


to [) 
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Animation 2.26. The movement of the osculating circle as it traces out 
the helix r(t)=(cos t,sin t,t). 


(c) 


helixPlot2=ParametricPlot3D[Evaluate[thelix[t],helix[t]+1/K2[helix][t] 
UN[helix][t]}],tt,-47,4n},PlotRange->{{-6,6},{-6,6},{-12,12}},PlotStyle-> 
{Automatic,{Red,Dashed}}] 


o1 


Figure 2.27. The centers of all osculating circles to the helix form 
another curve called the evolute to the helix (the red dashed curve). 


Module[{},Manipulate[Show|[helixPlot2,point[helix,t0],oscCircle[helix,t 
0],oscCenter [helix,t0],PlotRange->{{-6,6},{-6,6},{-12,12}}], 
{110,-377},-377,477,277/20%] 


| 
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Animation 2.28. The helix r(t)=(cos t,sin t,t) and its evolute; with the 
osculating circles. 


The above animation shows that the centers of all osculating circles 
trace out another curve called the evolute to the original curve. It 
demonstrates that the evolute of the helix is another helical curve. 


Example 2.16. A curve is parametrized by 
r(t)-(t cos t,t sin t,sin 2t), -2n«-t-«-2m. 
(a) Compute the curvature of the curve. 


(b) Plot the curve and its osculating circle at t—0. 


(c) Plot the evolute to the curve on the same graph. 


Solution: 


(a) 


Clear[r] 


r[t_]:={t Cos|[t],t Sin[t],Sin[2t]} 


k2[r][t] 


(b) 


curvePlot=ParametricPlot3D[Evaluate[r[t]],{t,-22,27}, PlotRange-> 
{{-8,8},{-8,8},{-4,4} 3] 
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Figure 2.29. The curve r(t)=(t cos t,t sin t,sin 2t). 


Show |[curvePlot,point[r,0],oscCircle[r,0],oscCenter[r,0], PlotRange-^ 
{{-8,8},{-8,8},{-4,4} 3] 


on | 


e 


Figure 2.30. The curve r(t)=(t cos t,t sin t,sin 2t) and the osculating 
circle to the curve at t=0. 


Module[{a,p}, 
o=curvePlot; 
p-r; 


Manipulate[Show][o,point[ß,t0],oscCircle[ß,t0],oscCenter[ß,t0],PlotRan 
ge->{{-8,8},{-8,8},{-4,43}],{{t0,-7},-271,27,277/20} | 


| 


tO 


Animation 2.31. The movement of the osculating circle as it traces out 
the curve r(t)=(t cos t,t sin t,sin 2t) 


(c) 


curvePlot2=ParametricPlot3D[Evaluate[{r[t],r[t]+1/K2[r][t] UN[r][t]}], 
{t,0,27}, PlotRange->{{-7,7!, {-7,7},{-4,4}},PlotStyle-> 
{Automatic,Magenta},ImageSize->500] 
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Figure 2.32. The curve r(t)=(t cos t,t sin t,sin 2t) and its evolute. 


Module[{o,ß}, 
o=curvePlot2; 
p-r; 


Manipulate[Show][o,point[ß,t0],oscCircle[ß,t0],oscCenter[ß,t0],PlotRan 
ge-^1-7,7),1-7,71,1-4.431] of {t0,0},0,27,27/20} | 


| 


to |] 


Animation 2.33. The curve r(t)=(t cos t,t sin t,sin 2t) and its evolute; 
with the osculating circles. 


2.3 Some applications 


Using the mathematical tools we have studied earlier, we shall apply them to 
some applications in physical sciences. 


2.3.1 Equations of motion in curvilinear coordinates 


In Section 1.8 of Chapter 1 we study some curvilinear coordinates such as 
polar coordinates in the plane, cylindrical and spherical coordinates in three- 
dimensional space. Having defined velocity and acceleration vector we can 
now derive expression for these vectors in curvilinear coordinates. 


2.3.1.1 Polar coordinates 


The position vector r in polar coordinates is represented by equation (1.21): 


rre. 
Using Definition 2.2 the velocity vector becomes 
v-r-fe,-re,. 
By equation (1.22), 


v=fe,+rdep, 


where Vr € f is the radial velocity component, and Ve =" 9 is the angular 
velocity component. 


The speed is 


VEY v + V9" 


Differentiating again with respect to time, we obtain the acceleration vector: 


a=v=re,+/fé,+/0e9+r0eg +r eg 


Using equation (1.22) again we obtain 


a=(f -r@)e,+(r6+27 de, 


is the radial acceleration component, and 


ag=(r6 +276) 


is the angular acceleration component. 


The acceleration is 


a=\a, «ag? 


By Newton's Second Law of Motion F=m a, where m is the mass of the 
particle, we obtain the equations of motion in component forms: 


Fr=ma,=m(f - rè’), 


Fo=mag=m(ré + 2 76). 


2.3.1.2 Cylindrical coordinates 


Recall from equation (1.27), a particle's position vector in cylindrical 
coordinates is written as 


r=re+ zk. 


Using Definition 2.2 we differentiate the position vector with respect to 
time: 


v=r=re,+/fe,+zk+zk 


Since k is constant, 
v=re, +fe, + zk | 
By equation (1.26), 


v=fe, +rdeg+äk, 


Taking another differentiation with respect to time, we obtain 


a-V-re,«ié,«i0eg«rOeg «rÜég - Zk 


Again by equation (1.26) we get 


a=re,+/0e9+/0e9+r@eg -rÖde, +Zk 


Finally, the acceleration vector: 


a-(r -r& Je, «(278 ré)eo +Zk 


The equations of motion in component forms are 
F,-m (r Ko ) 

Fo -m(27à + re), 

F,-mz. 


2.3.1.3 Spherical coordinates 


The position vector r of a particle in spherical coordinates is represented by 
equation (1.31): 


r-re,. 

Differentiating with respect to time gives the velocity vector: 
v-r-re,«fe,. 

Substituting 


è, = Oeg+sinOd eg 


from equation (1.33) into v we obtain 


v=fe,+rdeg+rsin 0 deg 


To obtain the acceleration vector, we differentiate the velocity vector with 
respect to time: 


a=V=re,+/é,+/Oeg+r Oegtr èg 


+Fsin des + rcos 0b oes «rsinOóes «rsinGó6, 


Substituting the derivatives of the unit vectors (1.33), (1.34) and (1.35): 


è, = 8eg+sin 8 Ọ ey, 
èg - -Óe, «cos 0 Q eg, 
èp = -sin 8 $e, - cos 8 $ eg. 


into a, we obtain 


a-re,«i(Deg«sin8ó eg) «7 Geg+r Oe,+r O(-Ge, «cos0ó e) 
+/sin@peg+ rcos OO peg 
+rsin @peg+rsin 8 ¢(-sin 6 ġe, - cos 0$ e9). 


After rearranging, 
a-(i -rÈ - r sin? ag Je, 
«(27 8«rà-rsin cos 8$ Jes 


* (27 sin 0$ «2rcos0Ó $«rsin o$) eg. 


Sometimes, it is convenient to work with different expression of the 
acceleration vector. 


Notice that 
1 
F 


d (r° 6)=27O+r0 
dt 9 


and 


— 4 (r? sin? 6) 


rsin@ dt 
_ 2rrdsin 0 PS r? o sin? 0 P 2r? Ẹsin 8 cos 0 È 
i r sin 8 r sin 8 r sin 8 


-2isin8$«rsin8$«2rcos 066. 
Thus, we can rewrite a as 
a=(f -rÈ -r sin? ag Je, 
+ (t " (r^ 8) - r sin 8 cos 06) eo 
+ Er < (r^ @ sin? 6) es. 
So, the equations of motion in component forms are 
F -m(r -r È? -r sin? 8$), 
Fo = m(t (r^ 8) - r sin 8 cos ag’), 
Fy = m(— z £ (r? psin® 6). 


2.3.2 Kepler's Laws of Planetary Motion 


In this section, we derive Kepler's three laws of planetary motion. 


Kepler's three laws can be summarized below: 


1. Planets move in elliptical orbits about the Sun, with the Sun at a focus of 
the ellipse. 


2. The area per unit time swept out by a position vector from the Sun to a 
planet is constant. 


3. The square of a planet's period T is proportional to the cube of the 
semimajor axis of the ellipse. 


2 
(E Ja? 


(2.31) d GM ; 

where 

a: the semimajor axis of the ellipse 
G: the universal gravitational constant 


M: the mass of the Sun 


We assume that the Sun and the planet be point masses and the mass of the 
Sun is much larger than the planet so as to ignore the Sun's motion and 
assume that the planet revolves around the center of the Sun. We also 
assume that the only physical effect is the gravitational attraction between 
the Sun and the planet and so ignore the gravitation attraction of other 
planets on each other; the so-called two-body problem. 


First we show that the motion is planar and the Sun lies in the planet's plane 
of motion. 


Without loss of generality, let the Sun be at the origin of the coordinate 
system. Let r=r(t) be the position vector of the planet. Then the velocity 
vector of the planet is 


v(t)=r'(t). 


By Newton's Universal Law of Gravitation, the Sun attracts the planet with a 
gravitational force 


__GMm 
(232) O= a er, 


where m is the mass of the plane, r the distance between the Sun and the 
planet. 


€r; is the unit radial vector given by 


_ r(t) 
rl, 


r(t) = ||r(£) || e . 


r 


Observe that the force is central, that is, it depends only on the distance r, 
acting along the line connecting the two bodies. 


By Newton's Second Law of Motion we have 


ma=-24” 


r 


e, 


where a is the acceleration vector of the planet. 


Thus, 


Note that the position vector and the acceleration vector are parallel but in 
opposite direction. 


Proposition 2.9 Let r and m be the position vector and mass of the 
planet, respectively. The angular momentum vector defined as 


(2.33) L=r x p, 
is constant. 


P=MV is called the linear momentum vector of the planet, where v the 
velocity vector. 


Proof. 


Taking the derivative of L, and by using the product rule of cross products 
we get 


d dr dv 
—- (rxmV)=M— x\V+Mrx— 
"i ) dt dt 


-mwxwv-e-mrxa 
Since cross product of parallel vectors vanishes, the first and second 


terms on the right-hand side vanish. Hence, L is constant. In physics, 
this is known as the conservation of the angular momentum. 


By Proposition 2.9 L is perpendicular to both r and v since m is a scalar. 
Because L is constant, both r and v lie in a plane perpendicular to vector 
L. Hence, the motion is planar and the Sun lies in the planet's plane of 
motion. For discussions below we assume motion in the xy-plane. 


In polar coordinates (1,0) the infinitesimal area swept out by position 
vector r from 41 to t2 (see Figure 2.34) is 


dA = 5 ||r(i) x r(t) | s 5 I r(&) x r(t dt) I 


Using Taylor series and keeping only the first order term, we obtain 


dA = $ ||r(&) x [r(t») + F(t) dt] || 
= Í |[r(&) x F(t) Ilat 
Since V(4) =" (4) | by Proposition 2.9: 


l| r() x A) = = = T ILI 


, a constant. 


So, the infinitesimal area becomes 


dA=— ||L||dt 
2m : 
Thus, 
dA. 1 
pea iit. 
(2.34) dt 2m ti , a constant. 


Module[ {x,y,ellipse,vector,area,text}, 
x[0 ]:-5 Cos[0]-2; 
y[0 ]:23Sin[0]; 


ellipse=ParametricPlot[ {x[8],y[9]}, {0,0,7/2} ,PlotRange-> 
{{0,3},Automatic } ]; 


vector[ 1 ]=Graphics[Arrow| { {0,0}, {x[v/8],y[v/8]} 1 ]]; 
vector[2]-Graphics[Arrow]| { {0,0}, {x[v/5],y[v/5]} }]]; 
vector[3]=Graphics[Arrow| {{x[v/8],y[v/8]}, {x[v/5],y[vV/5]} }]]; 


area=Table[Graphics[ ( GrayLevel[0.7],Line[ 1 {0,0}, {x[8],y[8]}}]}], 
10,1/8,1/5,1/300] ]; 


text[1]-Graphics[Text["r(t1)", {2,0.7} ]]; 

text[2 ]-Graphics[Text["r(t2)", (1.5,1.51 ]]; 
text[3]-Graphics[Text[" A0", {0.7,0.4}]]; 

Show ][ellipse,Array [vector,3 |, area, Array [text,3 | | 
] 
3.0} 
2s| 


2.0! 


0.5! 


0.04 


05 10 15 #20 #25 30 


Figure 2.34. The infinitesimal area swept out by position vector r from ty 
tot. 


Alternatively, the area of circular sector of angle A0 and radius r can be 
approximated by 


AA - ii^ A0 


By dividing the circular sector into n partition of each with a circular sector 
of radius » , the total area is approximated by the sum 


Taking n->o, we get 


n n 
A-lim > AAj- ilim > r^ A6j 


no j=1 noo j=1 


’ 


which is the Riemann sum for the integral of the area from 0 to 0+ A8 : 


A= : pw de 


Hence, the area swept out by the planet from 0 to 0 is 
-.if092 
A= de | 


By the Fundamental Theorem of Calculus, we have 


dA 1,2 
(2.35)d@ 2 . 
dA _ dA dé 
Since d | d0 dt, 


and using equation (2.34) and (2.35), we get 


- (3 
re haar e 


where prime denotes differentiation with respect to t. 
Hence, 

= 2 2 g' 
(2.36) LEILI = mr” 8". a constant. 
Theorem 2.10 (Kepler's First Law) 


Planets move in elliptical orbits about the Sun, with the Sun at a focus of the 
ellipse. 


Proof. 


Recall from the acceleration vector a 


Assuming the Sun is at the origin, we have then the unit radial vector 


e, - cos ĝi + sin OJ | where 0 is the angle between the position vector of 
the planet and the x-axis (see Section 1.8.1). 


So, equation (2.37) becomes 


dv = - $^ (cos 0i + sin@j)de 


' L 


Substituting mr? from equation (2.36) into dv gives 


dv =- H" (cos 6i + sin 0j) dO 


Integrating, 


fav =- f(cos 6i + sin8j)d6 


(2.38) 


_GMm 
L 


V (-sin 8i + cos 8j) - c 


where c is integration constant vector depends on the initial conditions 
of the planet. 


Assume for the initial conditions at t=0 the planet is at the x-axis: 


x(0)=%0, — y(0)-0, 


and the velocity vector points in positive y-direction such that 


v(0) 2 0, vy (0) = Wo l 


Thus, with these initial conditions equation (2.38) becomes 


: GMm; 


? 


= _ GMm\; 
which yields € 7l rm 


0 pani C 
Write € 2 CJ , where 


Recall from Section 1.8.1 equation (1.20): 
eg - -sin 8i + cos 0j 


Thus, 


_GMm ; 
(39 i Pe, 


GMm 
c - (v a 
where y0 L |. 


So the angular momentum vector becomes 


L=rxmv=re, x m( oii eg + cj) 


’ 


L= eun: (e, x eg)«rm(e, x cj) 


But, by equation (1.20): 


e, xeg-kaggerxcj-ccosOk. 


where k is the unit vector in z-axis. 


Thus, 


L = Mmi: (1+ -2L cos e) k 
L GMm 


Write 


(2 40) b= = (1 +ecos 6)k 


cL 
ez 
where k= GM n? and GMm are constants. 


The magnitude of the angular momentum is 


L=% (1+ecos 0) 
L , a constant; 


and we obtain the polar equation for the planet's orbit: 


L? 
(2.41)  - k(1+ecos 6) | 


Depending on the values of e which is known as eccentricity of the orbit, the 
trajectory can be an ellipse, circle, parabola or hyperbola. Only the first two 
trajectories are bounded. Since a circle is a special case of an ellipse, so if 
the orbit is bounded, then the trajectory must be an ellipse. 


Theorem 2.11 (Kepler's Second Law) 


The area per unit time swept out by a position vector from the Sun to a 
planet is constant. 


Module[ {x,y,ellipse,section}, 

x[0 ]:-5 Cos[0]-2; 

y[0 ]:23Sin[0]; 

ellipse=ParametricPlot[ {x[],y[0]}, {0,0,27} |; 


section[1]- Table[Graphics|[ (GrayLevel[0.7],Line[ { 10,07, {x[0],y[0]} 31} ], 
106,0,1/4,1/200] ]; 


section[2]=Table[Graphics[ (GrayLevel[0.7],Line[ { 10,07, {x[0],y[0]} 31} ]. 
10,51/7,17 1/20, 2/200} ]; 


Show [ellipse,Array [section,2]] 
] 


Figure 2.35. The area per unit time swept out by a position vector from the 
Sun to a planet is constant (Kepler's Second Law). 


Proof. 


Recall from our previous result (equation 2.34): 


dA 1 
— = — [LII 
constant. 


+ IL] 


Thus, the area swept out by the planet is the constant 2m 
time interval At. 


times the 


Theorem 2.12 (Kepler's Third Law) 


The square of a planet's period T is proportional to the cube of the semimajor 
axis of the ellipse. 


Proof. 


First, we compute the total area swept out by the planet for a complete orbit 
in time T, which is called the period of the orbit. Recall from geometry, the 

area of an ellipse with semimajor and semiminor axes having lengths a and 

b, respectively, is known to be 7t ab . 


Thus, 


mab= „a dt 
dt . 


dA 
Substituting dt of equation (2.34) into the integrand above gives 


wn Tote & 
nab=7>- I| L II f, dt= =T 


So, the period T is given by 


ram 21 abm 
L 


3 


T2 = 4m a b? m? 
(2.42) E 


Recall from the polar equation of the orbit, equation (2.41): 


L? 
"= k(1*ecos6). 


But the polar equation of the ellipse (see [Zwill] page 228, equation 4.10.12) 
is also given by 


r= | 
(2.43) 1+ecosé , 


where e is the eccentricity of the orbit and ; is the half of the latus rectum. 


The lengths of the semimajor axis and semiminor axis are related by 


p? = a 
k 


Substituting b? into equation (2.42) gives 


Note that this relation between the period of the orbit and the length of the 
semimajor axis depends solely on the mass of the Sun M. 


2.3.3 The Lorentz force 


Consider the motion of a point particle of mass m and charge q in the 
presence of electric field vector E and the magnetic field vector B. The 
force exerted on the particle according to Lorentz force law is given by 


(2.44) F=q(E+Ív xB) 


where c is the speed of light and V «C. 


Suppose the initial position of the particle is at the origin and with initial 


velocity VO) = (wo; Wo. Vzo) . Let the magnetic field be uniform and lie in 
the direction of z-axis 


B-Bk. 


Consider the following cases: 


Case 1. There is no electric field. The particle enters the magnetic field 
perpendicular to it. 


The Lorentz force becomes 


F-7vxB 
[^ : 


Observe that in this case, the Lorentz force is perpendicular to both v 
and B; where B lies in the direction of z-axis and the velocity of the 


particle is parallel to the xy-plane. 
Write 
V(t) = vx(t)i + v(t) j 


So, 


F=? [vx(t) i+ vy(t) j] x Bk 


? 


ER. j — i 
F-*(wBi vw Bj). 


With these conditions, note that the motion of the particle is in the xy-plane. 


According to Newton's Second Law of Motion 


m(ki+yj)=2WBi - xBj) 


? 


where dot denotes differentiation with respect to t. 


Equating like vector components leads to a system of coupled differential 
equations: 


dic 


(2.45) my - -qBx. 


where for simplicity we set c=1. 


Suppose at t=0, the velocity does not have component along x-axis but y- 
component such that 


Vyo z y(0) 7 yo, Vo = X(0) = Xo =0 
and 
X(0) = Xo | y(0) 7 yo 


The initial speed is then 


V= Vio * Yor = 


Using DSolve command in Mathematica we find the solutions to the 
above differential equations with initial conditions: 


Clear[x,y,x0,y0,q,B | 


sol-DSolve[ (m x"[t]==q B y'[t],m y"[t]==-q B 
x'[t],x'[0]==0.y'[0]=vy0,x[0]==x0,y[0]—=y0}, (x[t].y[t]).t] 


We obtain the solutions: 
(2.46) 
yom qB 
X(t) — Xo = = (1- cos Et), 


y(t) - yo = 10% sin Ët, 


The solutions are parametric equations of a circle with constant radius (see 
Figure 2.36): 


Yom 
qB . 


r= 


Since a particle moving in a circle has constant speed, write: 


rovme 4 
(2.47) qB uc, 
w = Ë 
where ^ m is known as the cyclotron frequency (see [Cyclo] and 
[ThoMa]). 
{x[t].y[t]}/-sol[[1]] 


ParametricPlot[ {x[t],y[t]}/.sol[[1]]/. {x0->0,y0->0,vy0->1,m->1,q->1,B->1}, 
{t,0,27} ‚ImageSize->300] 


1.0; 


0.5. 
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Figure 2.36. The trajectory of the particle under Lorentz force is a circle 
under certain conditions. 


The time to complete one orbit is calculated using the equation: 


(2.48) v vqB” QB 


It is found that the period is independent of the radius (see [Cyclo]). 


Case 2. The uniform electric field E lies in the yz-plane. 


The force on a particle of mass m that carries a charge q and has a 
velocity v is given by 


F-qE*qvxB, 


where for simplicity we set c=1. 


In this case 


E-E,j-Ezk. B-Bk. 


According to Newton's Second Law of Motion: 


m(xi+yj+zk)=q (Ey j+E,k) +q(vxit+v, j+vzk) x Bk 


’ 


m(xi+yj+zk)=g(E,j+Ezk) *qBvyi-qBv.j 


Equating like components, we obtain a set of coupled differential equations: 


mx=qBy, 
my=qEy -qBx, 
(2.49) mz -qE;. 


Observe that the first two equations are coupled in x and y, but the third 
equation is solely in z. 


We first solve the third differential equation of (2.49) by integration: 


Zo 0 
Ht- za = SER 
Z(t) - Zo = 5 t, 
s(t) = 25 4 VE 
Z(t) 2 Zo * = t. 


Integrating once more, 


frdz= Z(t) - zo = =žot+ 9 r 


So, 


a 2 
(2.50) z(t)=Zo+Zot+ t 


Next, we use DSolve command to find the velocities Vx(t) and Vy (t) of 
equation (2.49): 


(* Find the velocity solutions for vx and vy of equation (2.49) *) 
Clear[x,y,m,q,B,vsol,vx,vy] 


vsol-DSolve[ (m vx'[t]==q B vy[t],m vy'[t]==q Ey-q B 
vx[t],vx[0]==vx0,vy[0]==vy0}, {vx[t], vy[t]},t]//Simplify 


The velocity solutions of the first two differential equations of (2.49) are 
obtained from Mathematica: 


(2.51) 


x(t) = : |(B Xo - Ey) cos (24 ) + B jo sin (2%: j + E, | 


? 


(2.52) 


y(t)= : (E, - B Xo) sin (2%) * B yo cos (2)] 


Note that both solutions are oscillatory with the same period: 


F 
(2.53) Bq . 


vx[t ]-vx[t]/.vsol[[1]] 


vy[t ]-vyl[t]/.vsol[[1]] 


The average velocity of over one complete period is defined as 


(x =l h (Oat 


y= Be 1 pe ** (Bx, - E;)cos (22! * B yo sin (2% ) + Ey|dt 


It is found to be: 


(2.54) =F 


Similarly, the average velocity of y over one complete period is 
. i ff 
= fo y(0dt | 


2n 


y= —LI 0 as (Ey - B Xo) sin (2%) +Byo cos (52*)| at 


2mm B 


’ 


(2.55) (-0. 


(* Compute the average velocity of vx *) 


Integrate[(B q)/(2x m) vx[t], £0,(2x m)/(B q)}] 


(* Compute the average velocity of vy *) 


Integrate[(B q)/(2x m) vy[t], {t,0,(2a m)/(B q)}] 


Consider the following initial conditions: 


: E 
Xo=x(0)=--, Wo = X(0) = = 
Yo = y(0) =0, Wo = y(0)- A 
An z(0) =0, V20 = z(0) mE 


where A, C are constants, B the magnitude of the magnetic field and We is 
the cyclotron frequency. 


Using the above initial conditions we include them in the DSolve 
command to find the x and y solutions of the first two equations of 
(2.49): 


(* Find x and y solutions of equation (2.49) *) 
Clear[x,y,m,q, A,B,sol] 


sol-DSolve[ {m x"[t]==q B y'[t], m y"[t]==q Ey-q B 
x'[t],x'[0]==Ey/B.y'[0]==A,x[0]==-A/ wc,y[0]==0}, {x[t], y[t] .t]//Simplify 


We obtain from Mathematica the solution: 


E 
x(t) =-22 m cos (SU), Am, zu 
Bq m Bq m 


Since the cyclotron frequency is defined by 


so 


E, 
x(t) 2 -- cos uy, t » & + 2t- 2 
We We B We 


’ 


(2.56) 


E 
x(t) - - 4 cos we t+ T t 


And 
aam Bat 
y(t) = Lm sin ( a ) 
t) - 4 sin wst 
(2.57) Yee, 


The z(t) solution is found earlier in equation (2.50): 


z(t)=Ct+ 2E 17? 
2m n 


Therefore, the trajectory of the particle is 
(2.58) 
x (t)  --& COS Wet + x t, 
We B 
y(t)= " Sin We f, 


= gEz 22 
z(t)=Ct+ ee C 


O 


= 
m is the cyclotron frequency. 


We = 
Clear[x,y,z | 
x[t_]:=-(A/wc)Cos[ac t]--Ey/B t 
y[t [:-A/oc Sin[oc t] 


z[t_]:=cCap t+(q Ez)/(2m) t^2 


Notice that we use cCap instead of C to avoid using the reserved symbol C 
in Mathematica. 


For plotting purposes we set all constants equal to one. 


ParametricPlot[ {x[t],y[t]}/. {A->1,@c->1,Ey->1,B->1}, {t,0,67} ,AxesLabel-> 
{"x"","y"} AspectRatio->1/4,ImageSize->500] 
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Figure 2.37. The trajectory of the particle under Lorentz force traces out a 
cycloid under certain conditions. 


Note that the curve is similar to a cycloid we encountered in Example 2.11. 


Let us plot again the curve y versus x for several values of A: 


ParametricPlot[ {x[t],y[t]}/. {A->#,@c->1,Ey->1,B->1}, {t,0,67} ,AxesLabel-> 
{"x"","y"} PlotLabel->"A="<>ToString[#, TraditionalForm],AspectRatio- 
>1/4,ImageSize->400]& /@ {2,1/2,1} 


Figure 2.38. The trajectories of the particle under Lorentz force for A=2, 
A=1/2 and A=1. 


Plot[z[t]/. {cCap->1,Ez->1,q->1,m->1}, {t,0,67} ] 
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Figure 2.39. The path of the particle in z-axis. 


Now, we plot the trajectory of the charged particle when it enters the 
electromagnetic field E and B: 


Clear[trajectory] 


trajectory[t_]:={x[t],y[t],z[t]} 


trajectoryPlot-ParametricPlot3D[trajectory[t]/. {A->1,@c->1,Ey->1,B- 
>1,cCap->1,Ez->1,q->1,m->1}//Evaluate, {t,0,67},AxesLabel-> 
{"x","y"","z"} PlotRange-> { {-2,20}, {-2,2}, {0,200} }, BoxRatios-> {1,1,1}] 


à N 
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Figure 2.40. The path of the charged particle under Lorentz force. 


The curvature and torsion can be computed as in the following: 


(* The curvature of the path of the particle *) 


[trajectory ][t]//Simplify//PowerExpand 


(* The torsion of the path of the particle *) 


t[trajectory][t]//Simplify 


Plot[«[ trajectory |[t]/. {A->1,@c->1,Ey->1,B->1,cCap->1,Ez->1,q->1,m- 
>1}//Evaluate, {t,0,#} ,AxesLabel-> {"t","«"} ,.ImageSize->300]&/@ {61,607} 
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Figure 2.41. The curvature of the path of the particle under Lorentz force. 


Plot[1[trajectory ]t]/. {A->1,a@c->1,Ey->1,B->1,cCap->1,Ez->1,q->1,m- 
>1}//Evaluate, {t,0,#} ,AxesLabel-» {"t","t"} ,PlotRange-^All,ImageSize- 
>300]&/@ {67,607} 


Figure 2.42. The torsion of the path of the particle under Lorentz force. 


As time becomes larger the curvature and the torsion of the path approach 
zero. This implies that the trajectory of the particle becomes linear and lies 
in a plane. 


(* The curvature of the path approaches zero as t approaches infinity *) 


Limit[«[ trajectory |[t]/.{A->1,@c->1,Ey->1,B->1,cCap->1,Ez->1,q->1,m- 
>] },t->oo] 


(* The torsion of the path approaches zero as t approaches infinity *) 


Limit[t[ trajectory ][t]/. {A->1,@c->1,Ey->1,B->1,cCap->1,Ez->1,q->1,m- 
>] },t->oo] 


Chapter 3. Differentiation in Several Variables 


The concepts and techniques in single variable calculus can be extended to 
differential calculus of several variables. The differentiation of a function of 
several variables involves partial derivatives, that is, taking one for each 
variable by fixing the values of other variables. The partial derivatives are 
components of a vector defined as the gradient vector of the function. 


In this chapter we will consider some of the key geometric properties of the 
gradient vector, which provides valuable insight into the function's 
behavior. We shall consider only functions of two and three variables and 
learn how to use Mathematica's graphing tools to visualize such functions. 


Initialization 


Clear["Global**"] 


SetOptions[ParametricPlot3D,PlotTheme-^"Classic",PlotStyle- 
>AbsoluteThickness[2]]; 


SetOptions[Plot3D,PlotTheme->"Classic",PlotStyle- 
>AbsoluteThickness[2]]; 


SetOptions[ContourPlot,PlotTheme->"Classic",ContourStyle- 
>AbsoluteThickness[2]]; 


SetOptions[ContourPlot3D,PlotTheme->"Classic",ContourStyle- 
>AbsoluteThickness[2]]; 


3.1 Visualizing Functions 


3.1.1 Functions of Two Variables 


In general a function of two variables can be defined by a single equation: 


z=f(x, y), 
which is a scalar-valued function of two variables, x and y. The graph 
consisted of a set of points (x, y, f(x, y)) is a surface in three-dimensional 


space. 


To graph a surface in Mathematica we can use Plot3D command. 


Example 3.1. Plot the function f(x, Y) = y €" on the rectangle -2<=x<=2, 
-2<=y<=2. 


Clear[f,x,y | 


f[x_,y_]:=y E^x 


Plot3D[f[x,y |, {x,-2,2}, {y,-2,2},PlotRange->Full] 


Figure 3.1. The graph of f(x,y)=y E^x. 


Example 3.2. Plot the function g(x,y)=(sin (2 - x^2 - y^2))/(x^2 + y^2 + 1) 
on the rectangle -1<=x<=n, -1<=y<=2. 


Clear[g,x,y] 


g[x_,y_]:=Sin[2-x%2-y*%2]/(x2+y%2+1) 


Plot3D[g[x,y], {x,-7,7}, {y,-7,7},PlotRange->Full] 


2 | 


Figure 3.2. The graph of g(x,y)=(sin (2 - x42 - y^2))/(x^2 + y^2 + 1). 


Special curves that lie on the surface z=f(x, y) are called level curves. These 
curves are obtained by intersecting the surface with horizontal planes z-c, 
where c are constants. 


The level curves for the surfaces in Example 3.1 and 3.2 can be drawn 
using ContourPlot command which are illustrated in Example 3.3 and 
3.4, respectively. 


Example 3.3. Draw the level curves at z-1 and z=2 for the surface function 
f(x, y) - y €" on the rectangle -2<=x<=2, -2<=y<=2. 


ContourPlot[f[x,y ], {x,-2,2}, {y,-2,2},Contours-> {1,2},ContourShading- 
>None,ContourStyle->{ {AbsoluteThickness[2],Blue}, 
{ AbsoluteThickness[2],Red}}] 


» A&A 0 f 2 


Figure 3.3. The level curves at z=1 (blue) and z=2 (red) for the surface 
function f(x, Y) 2 y e". 


The two level curves above correspond to the intersecting curves between 
yet 
the surface f(X, ¥Y)=Y €^ and the plane z=1 and z=2, respectively. 


Example 3.4. Draw the level curves at z=0 and z=0.2 for the surface 
function g(x,y)=(sin (2 - x42 - y^2))/(x^2 + y^2 + 1) on the rectangle 
“=X <=], o-dD—y€-J. 


ContourPlot[g[x,y ], {x,-7,7}, {y,-1,7},Contours-> {0,0.2} ,ContourShading- 
>None,ContourStyle-> { ( AbsoluteThickness[2 |,Blue] , 
{ AbsoluteThickness[2], Red] ) | 


: 
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Figure 3.4. The level curves at z=0 (blue) and z=0.2 (red) for the surface 
function g(x,y)=(sin (2 - x^2 - y^2))/(x^2 + y^2 + 1). 


In this case, the intersecting curves between the surface g(x,y)=(sin (2 - x2 
- y^2))/(x^2 + y^2 + 1) and the plane z=0 and z=0.2 are concentric circles 
centered at the origin. There are many intersecting circles between the plane 
z=0 with the surface. However, for the plane z=0.2, there is only one 
intersecting circle. 


3.1.2 Functions of Three Variables 


For functions of three variables x, y, z the graphs would consist of a set of 
points (x, y, z, f(x, y, z)) in four-dimensional space. Therefore, it is not 
possible to draw the graph. However, we can draw the surfaces of a 


function f(x, y, z)7c, where c are constants. These surfaces are known as 
level surfaces. 


Let us plot some well-known level surfaces. 


Example 3.5. The ellipsoid: 
f(x,y,z)-x^2/a^ 2t y^2/b^2z^2/c^2-1. 


Notice that if a=b=c, then the ellipsoid is a sphere of radius a. If one of the 
variable is zero then the ellipsoid is intersected with one of the coordinate 
planes, then we obtain a standard ellipse. 


ContourPlot3 D[x*2/a*2+y%2/b*2+z*2/c*2==1/. {a->1,b->2,c- 
>1}//Evaluate, {x,-2,2}, {y,-2,2},{z,-2,2} | 
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Figure 3.5. The ellipsoid x^2/a^2*y^2/b^2-z^2/c^2-1 for a=1, b=2, c=1. 


Example 3.6. The elliptic cone: 


f(x,y,zZ)-x^2/a^2--y^2/b^2-z^2/c^2-0. 


ContourPlot3D[x^2/a^2-y^2/b^2-z^2/c^2——0/. {a->1,b->2,c->1}//Evaluate, 
{x,-4,41, fy,-4,4}, {z,-2,2} ,PlotRange->All] 


Figure 3.6. The elliptic cone x^2/a^2—y^2/b^2-z^2/c^2—0 for a=1, b=2, c=1. 
Example 3.7. The elliptic paraboloid: 


f(x,y,zZ)-x^2/a^2--y^2/b^2-z/c—0. 


ContourPlot3D[x^2/a^2-y^2/b^2-z/c——0/. {a->1,b->2,c->1}//Evaluate, 
{x,-4,4}, {y,-4,4}, {z,-4,4} PlotPoints->40,PlotRange->All] 


At 


Figure 3.7. The elliptic paraboloid x^2/a^2+y^2/b^2-z/c=0 for a=1, b=2, 
el. 


Example 3.8. The hyperbolic paraboloid: 


f(x, y,z)7-(x^2/a^2)*y^2/b^2-z/c-0. 


ContourPlot3D|[-(x^2/a^2)*y^2/b^2-z/c——0/. {a->1,b->2,c->1 }//Evaluate, 
(x,-4,41, fy,-4,4}, {z,-4,4} PlotRange->All] 


\v 


Figure 3.8. The hyperbolic paraboloid -(x^2/a^2)*-y^2/b^2-z/c—0 for a=1, 
b=2, c=. 


Example 3.9. The hyperboloid of one sheet: 


f(x,y,zZ)-x^2/a^2--y^2/b^2-z^2/c^2-1. 


ContourPlot3D[x^2/a^2-y^2/b^2-z^2/c^2——1/. {a->1,b->2,c->1}//Evaluate, 
{x,-5,5}, {y,-5,5}, {Z,-2,2},PlotRange->All] 


Figure 3.9. The hyperboloid of one sheet x^2/a^2--y^2/b^2-z^2/c^2-1 for 
a=1, b=2, c-1. 


Example 3.10. The hyperboloid of two sheet: 


f(x, y,z)7-(x^2/a^2)-y^2/b^2-*z^2/c^2-1 


ContourPlot3D|[-(x^2/a^2)-y^2/b^2--z^2/c^2——-1/. {a->1,b->2,c- 
>1}//Evaluate, {x,-4,4}, {y,-4,4}, {z,-2,2}] 
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Figure 3.10. The hyperboloid of two sheet -(x^2/a^2)-y^2/b^2+z^2/c^2=1 
for a=1, b=2, c=1. 


3.1.3 Parametrized Surfaces 


In previous sections we study surfaces of the form z=f(x, y) for two 
variables and level surfaces of the form f(x, y, z)=c for three variables. 
However, not all surfaces are of these forms. A surface can also be 
described by a parametric equation. We have studied in Section 1.3 
parametrized curves, being one-dimensional, requires a single parameter t. 
A parametrized surface thus depends on two parameters which is two- 
dimensional. Let us denote the parameters by s and t. Thus, a surface in R? 
can be described by the parametric equations 


y - y(s, t), 
zZ-2[s f). 


| X - Xis. D. 


where the set of (s, t) define a region in R? which could be open, bounded, 
or unbounded. 


We give here as examples the parametric equations of some of the level 
surfaces we have encountered in Section 3.1.2 and plot the surfaces 
using ParametricPlot3D command. 


Example 3.11. The parametric equation of the ellipsoid is given by 


ellipsoid[a, b, c](s, t)=(a cos s cos t, b sin s cos t, c sin t). 
ellipsoid[a ,b ,c |[s_,t_]:={a Cos[s] Cos[t],b Sin[s] Cos[t],c Sin[t]} 


ParametricPlot3D[ellipsoid[ 1,2,1][s,t], {s,0,27}, {t,0,27} ] 


yay 


1.0 


Figure 3.11. The ellipsoid by parametric equation ellipsoid[a, b, c](s, t)=(a 
COS s cos t, b sins cos t, c sin t) for a=1, b=2, c- 1. 


Example 3.12. The parametric equation of the elliptic cone is given by 


ellipticcone[a, b, c](s, t)=(a s cos t, b s sin t, c s). 
ellipticcone[a ,b ,c |[s_,t_]:={as Cos[t],b s Sin[t],c sj 


ParametricPlot3Df[ellipticcone[1,2,1][s,t], {s,-2,2}, {t,0,27} ‚PlotRange-> 
{ {-2,2} , {-4,4} 9 {-2,2} } ,BoxRatios-> { 1 9 1 9 1 3] 


Figure 3.12. The elliptic cone by parametric equation ellipticcone[a, b, c](s, 
t)=(a s cost, b s sin t, c s) for a=1, b=2, c=1. 
Example 3.13. The parametric equation of the elliptic paraboloid is given 
by 


ellipticparaboloid[a, b, c](s, t)=(a s cos t, b s sin t, c s^2). 


ellipticparaboloid[a ,b ,c ][s_,t_]:={as Cos[t],b s Sin[t],c s^2] 


ParametricPlot3D[ellipticparaboloid[1,2,1 ][s,t], {s,-2,2}, {t,0,27},BoxRatios- 
SUL TT] 
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Figure 3.13. The elliptic paraboloid by parametric equation 
ellipticparaboloid[a, b, c](s, t)=(a s cos t, b s sin t, c s^2) for a=1, b=2, c=1. 


Example 3.14. The parametric equation of the hyperbolic paraboloid is 
given by 


hyperbolicparaboloid[a, b, c](s, t)=(s, t, c (t^2/b^2-s^2/a^2) ). 
hyperbolicparaboloid[a ,b ,c ][s .t ]:1s.t,c(t^2/b^2-s^2/a^2)] 


ParametricPlot3 D[ hyperbolicparaboloid[1,2,1][s,t], {s,-3,3}, 
{t,-4,4} ,BoxRatios->{1, 1, 1}] 
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Figure 3.14. The hyperbolic paraboloid by parametric equation 
hyperbolicparaboloid[a, b, c](s, t)=(s, t, c (t^2/b^2-s^2/a^2) ) for a=1, b=2, 
c=1. 


Example 3.15. The parametric equation of the hyperboloid of one sheet is 
given by 


hyperboloid1[a, b, c](s, t)=(a cos s cosh t, b sin s cosh t, c sinh t). 


hyperboloidl[a ,b ,c ][s_,t_]:={a Cos[s]Cosh[t],b Sin[s]Cosh[t],c Sinh[t]} 


ParametricPlot3D[hyperboloid1[1,2,1][s,t], {s,0,27}, {t,-1,1},PlotRange- 
>All,BoxRatios->{1, 1, 1}] 


Aw 


Figure 3.15. The hyperboloid of one sheet by parametric equation 
hyperboloid1[a, b, c](s, t)=(a cos s cosh t, b sin s cosh t, c sinh t) for a=1, 
b=2, c=. 


Example 3.16. The parametric equation of the hyperboloid of two sheet is 
given by 


hyperboloid2[a, b, c](s, t)=(a cos s sinh t, b sin s sinh t, c cosh t). 


hyperboloid2[a ,b ,c ][s_,t_]:={a Cos[s]Sinh[t],b Sin[s]Sinh[t],c Cosh[t]) 


ParametricPlot3D[ {hyperboloid2[1,2,1][s,t],hyperboloid2[1,2,-1][s,t]}, 
{s,0,27}, {t,-2,2},PlotRange-> { {-4,4}, {-4,4}, {-2,2!} BoxRatios->{1, 1, 1}] 
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Figure 3.16. The hyperboloid of two sheet by parametric equation 
hyperboloid2[a, b, c](s, t)=(a cos s sinh t, b sin s sinh t, c cosh t) for a=1, 
b=2, c=1. 


Note that for plotting hyperboloid of two sheets in parametric equation, the 
lower half is obtained by setting c<0. 


3.2 The Derivative 


The derivative of multivariable functions is similar to the one in single- 
variable function. However, for multivariable functions, we have to take 
derivative with respect to a specified variable when all other variables are 
held fixed. This is defined as partial derivative with respect to the variable 
concerned. Technically, taking the partial derivative of a function of more 
than one variable with respect to a specified variable is similar to derivative 
in single-variable function by treating other variables as constants. The 
partial derivatives of a function f with respect to x and y are denoted by f 
of of 
and fy , respectively. The other notations are 4x and 9y , respectively. In 
general, Mathematica uses the following notation to denote partial 
derivatives of function f with respect to first variable and second variable 


by fU and f°" | respectively. 


In Mathematica, we can use either the D command or the @ notation to 
compute partial derivatives of a multivariable function. 


Notes: 


- To generate the ô sign, press the Esc key, then type the word "pd" 
and followed by another Esc key. 


- To generate 9 with subscripts such as Ox ‚press the Esc key, then type 
the word "pd" and followed by another Esc key. Holding down the Ctrl 
key, press the - key. Then type "x". 


Here are some examples: 


of of 
Example 3.17. Find the partial derivatives ôx and 3y of the function of two 
variables 


(a) f(x,y)=In (x^2 + y) 
(b) gGu y)» (x^2 + 3y^2) E^(1-x^2-y^2) 


(c) h(x,y)=(sin (2 - x^2 - y^2)y(x^2 + y^2 + 1) 


Solution: 


(a) 


Clear[f,x,y | 


f[x_,y_]:=Log[x’2+y] 


D[fLx, y],x] 


D[ffx,y],y] 


or, alternatively 


Oxf[x, Y] 
O,f[x, Y] 


(b) 


Clear[g,x,y] 


g[x ,y. :2(x^2423y^2)E^(1-x^2-y^2) 


D[elx,y],x] 


D[g[x.y y] 


or, alternatively 


Óxg[x, Y] 
O,g[x, y] 


(c) 


Clear[h,x,y | 


h[x ,y. :2Sin[2-x^2-y^2]/(x^2*y^241) 


D[h[x,y],x]//Simplify 


D[h[x,y],y]//Simplify 


or, alternatively 


O,h[x, y] // Simplify 
O,h[x, y] // Simplify 


of of 
Example 3.18. Given a function f(x,y,z), find the partial derivatives ôx , 4y 
of 


and az . 
(a) f(x,y,Z)-x^3 y z^2 
(b) f(x, y,z)=(k + 2y + 3Zy(1 + x^2 + y^2 + z^2)^ (3/2) 


(c) f(x, y, Z)-E^(a x) sin b y + E^(a z) cos b x 


Solution: 


(a) 


Clear[f,x,y,z] 


I[x yz |—x3yz2 


D[f[x;y;z].x] 
D[f[x.y;z].y] 


D[f[x.y.z].z] 


(b) 


Clear[f,x,y,z] 


f[x y ,z |2(42y4732)(1-x^2*y^2*z^2) (3/2) 


D[flx,y,z],x ]//Simplify 
D[f[x.y.z].y |/Simplify 


D[f[x,y,z], z]//Simplify 


(c) 


Clear[f,x,y,z,a,b] 


f[x ,y ,z |4-E^(a x) Sin[b y]+E“(a z) Cos[b x] 


D[f[x.y,z].x] 
D[f[x.y;z].y] 


D[f[x.y.z].z] 


Higher order partial derivatives can be done similarly as are illustrated in 
the following examples. 


er Cr Cr PF 
Example 3.19. Find the partial derivatives 0x?’ dy @x’ öxöy and 4y* of the 
functions 


(a) f(x, y, zZ)-Sqrt[3x^2*y^2-2z^2] 


(b) f(x,y,z)=E”-x sin (y z) 


C) f(x,y,Z)-2x^3 y^2 z^3-x^5 y z 
y y 


Solution: 


(a) 


Clear[f,x,y.z] 


f[x_,y_,z_]:=Sqrt[3x42+y%2-2z"2] 


D[f[x,y;z], {x,2} ]//Simplify 
D[f[x.y.z].x.y] 
D[f[x.y;z].y.x] 


D[f[x.y.z]. ty,2 } J//Simplify 


or, alternatively 


O(x,2) £[X, Y, Z] // Simplify 
Oy vE[xX, Y, 2] 
Ox v £[x, Y, z] 
O(y,2i £[X, Y, Z] // Simplify 


(b) 


Clear[f,x,y,z] 


f[x_,y_,z_]:=E’-x Sin[y z] 


D[f[x;y,z], {x,2} ] 
D[f[x.y,z].x.y] 
D[f[x.y,z]. y.x] 


D[f[x.y.z]. ty.23] 


or, alternatively 


Orx, 2; £[X, Y: z] 
Oy, xf[X, Y, z] 
Osy El; Y: z] 
ty, £[X, Y: z] 


(c) 


Clear[f,x,y,z] 


f[x_,y_,Z_]:=2x%3 y^2 zZ^3-x^5 y z 


D[f[x.y.z] 2 {x,2} ] 
D[f[x.y.z].x.y] 


D[f[x.y, z]. y.x] 


D[f[x.y.z]. 1y.25 ] 


or, alternatively 


Orn, 2} £[X, Y: z] 
Oy x£[X, Y, Z] 
0, .f[XxX, Y, 2] 
O(y,2) £[X, Y: z] 


So far, we have considered functions of the form f(x, y) €gR and 


f(x, y, Z) € R which are scalar-valued functions of two and three 
variables, respectively. We have also seen that the derivatives of these 
functions depend on which variable is being taken for differentiation 
while fixing other variables. This means that the derivative of f depend 
on the choice of direction. As a matter of fact, there are infinitely many 
directions to choose from to describe the derivative of f. This leads us to 
the definition of gradient and derivative of f. 


Definition 3.1 (the gradient and the derivative) 


The gradient of a scalar-valued function of two variables f : (X, y) > R 
at a point P is the vector 


(3.1) 
Vf - (2. a «(£1 


? 


and the derivative of f(x,y) at P denoted by D fp is the row matrix whose 
entries are the components of Vip , that is 


(3.2) Dfe-(5; M 


Similarly, for scalar-valued function of three variables, f(x, y, 2 eR , the 
gradient is 


(3.3) 


Vip= (2, or at) 
Ox Oy OzlP 
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rn, 
x |S 
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U 
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nn 
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and the derivative is the row matrix: 


-(£ of - 
P 


(3.4) Dipl oy az lp. 


The definition above can be generalized to scalar-valued functions of more 
than three variables. However, in this book we shall focus on two and three 
variables only. 


Example 3.20. Find the gradient and derivative of 
(a) f(xy)-x/(x^2 + y^2) 


(b) fGx.y,z)-x y z^-2 


Solution: 


(a) 


Clear[f,x,y | 


f[x_,y_]:=x/(x42+y%2) 


We use Grad command to compute the gradient of f. 


In doing so, we need to inform Mathematica to use as coordinates x and y 
and to find the gradient in Cartesian coordinates system. It is entered as in 
the following: 


Grad[f[x.y |, (x. y )," Cartesian" |//Simplify 


Thus, the gradient of f(x,y)-x/(x^2 + y^2) is 
i 2 : 
Vf(x, = Ta ap = "Ib ENTE 


and the derivative of f(x, y)7x/(x^2 + y^2) is a 1x2 row matrix: 


Df(x, v| (2+ eom ers 


(b) 


Clear[f,x,y,z] 


f[x_,y_,z_]:=x y z^-2 


We need to enter into Grad command, the three coordinates x, y and z 
and to specify the Cartesian coordinates system to be used. 


Grad[f[x,y,z ], {x,y,z},"Cartesian" | 


Thus, the gradient of f(x,y,z)=x y z^-2 


. 2 
VE(x, y, Z)= Sie 5 j- Tk 


and the derivative of f(x,y,z)=x y z^-2 is a 1x3 row matrix: 


Dix, y=(3 3 -*A) 


Z Z 


In single variable calculus, the derivative of a scalar-valued function 
leads us to the definition of tangent line. Similarly, the scalar-valued 
function of two and three variables leads us to the definition of tangent 
plane and tangent hyperplane, respectively. Just as a tangent line is a 
good linear approximation of the curve at a point, a tangent plane or a 
tangent hyperplane is a good linear approximation of the surface and 
hypersurface, respectively. 


We state the following theorems without proof. 


Theorem 3.2. If there exists a tangent plane to a surface function z=f(x,y) at 
point P=(a,b,f(a,b)), then the equation of the tangent plane at point P is 
given by 

(3.5) 


z öfla,b) , _ öfla,b) p, 
h(x, y)  f(a, b) + PEP (x — a) + 9:81 (y - b) 


It is not difficult to generalize Theorem 3.2 to three (or more) variables. 


Theorem 3.3. If there exists a tangent hyperplane to a hypersurface function 
w-f(x,y,z) at point P=(a,b,c,f(a,b,c)), then the equation of the tangent 
hyperplane at point P is given by 

(3.6) 


= Of (a, b, c) E Of (a, b, c) = Of (a, b, c) E 
h(x, y, zZ) 2 f(a, b, c) A (x-a)+ LC (y-b)+ "o (z - c) 


Using vector notation and by Definition 3.1 we can write the tangent 
equation as 


(3.7) 


h(x) =f(a) + Vf(a) - (x - a) 
or 


(3.8) 
h(x) = f(a) + Df(a) (x - a) 


where x=(x,y,z) and a=(a,b,c). 


Obviously, the vector notation provides a compact form in describing the 
tangent equation of function of several variables. 


Example 3.21. A surface function is given by z-x^2-6x-^y^3. Find an 
equation of the plane tangent to this surface at point (1,2,3). 


Solution: 


Clear[f,x,y | 


f[x ,y |;2-x^2-6x-y^3 


D[f[x.y lx] 


D [f[x.y] A). {X-> I ‚y->2 } 


D[f[x.y.y] 


D [f[x.y] yl. {X-> I yond } 


Write f(x,y)=z=x”2-6x+y”3, so 


ot =2x-6, of =3y? 

ax dy 

at — af - 

ax (1, 2)= 4, ay (1, 2)= 12. 


By Theorem 3.2 the tangent plane to the surface at the point (1,2,3) is given 
by 


m of(1, 2) E Of(1, 2) = 
n(x, y) e f(1, 2) + 252 (x-1) + AA (y -2) 


h(x,y)=3-4(x-1)+12(y-2), 


h(x,y)=-4x+12y-17. 


Here is a Mathematica module to find the tangent plane of a surface 
function given by z=f(x,y) at point P=(a,b,f(a,b)) as described in Theorem 
3.2: 


(* The equation of the tangent plane to the surface 
defined by z=f(x,y) at (x,y)=(a,b) 

J 

tangentPlane[f ,a |: 


Module[ {u,v}, 


f[u,v]*Grad[f[u,v |, {u,v},"Cartesian" ]. {x-a[[1]],y-a[[2]]}/. {u->al[[ 1] v- 
>al[2]]} 


] 


tangentPlane[f, (1,2) |//Simplify 


surface-Plot3D[f|x.y |, {x,0,2!, 1y, 1,3), PlotStyle-^Opacity[0.6],BoxRatios-^ 
ULT 


tangentP=Plot3D[-4x+12y-17, {x,0,2}, (y, 1,3), Mesh-^None,PlotStyle-— 
{Green,Opacity[0.3]} ]; 


point=Graphics3D[ {Red,PointSize[0.03],Point[ {1,2,3}]}]; 


Show[surface,tangentP,point, ViewPoint-> {10,10,10} | 


Figure 3.17. The surface z=x^2-6x+y^3 and the plane tangent to it at the 
point (1,2,3). 


The Mathematica module to find a tangent hyperplane to a hypersurface 
function w=f(x,y,z) at point P=(a,b,c,f(a,b,c)) is given below: 


(* The equation of the tangent hyperplane to the surface 
defined by w=f(x,y,z) at (x,y,z)=(a,b,c) 

*) 

tangentHyperplane[f ,a ]:- 


Module {s,t,v}, 


fIs,t,v]+Grad[|f] s,t,v], {s,t,v},"Cartesian"].{x-a[[1]],y-a[[2]],z-a[[3]]}/. {s- 
>a[[1]],t->a[[2]],v->al[3 ]]5 


] 


Example 3.22. Find an equation of the tangent plane to the surface at the 
given point: 


a) X ZF2x^2 yry^2 z^3-11, P=(2,1,1). 
y 


(b) x^2+z^2 E^(y-x)-13, P=(2,3,3/Sqrt[E]). 


Solution: 


(a) 


We may consider the surface x z+2x^2 y+y^2 z^3=11 as a hypersurface 
defined by 


w=f(x,y,z)=x Z+2x%2 y+y^2 z^3-11. 


Then by Theorem 3.3 the equation of the tangent hyperplane at point P is 
given by equation (3.6): 


= Of (a, b, c) _ Of (a, b, c) u öf(a,b,c) = 
h(x,y,z)=f(a, b, pec (x NY CE (y b)+ (z - c) 


Clear[f] 


fIx_,y_,z_];>X z+2x^2 y+y^2 243-11 


tangentHyperplane[f, {2,1,1}]/Simplify 


As we have mentioned earlier in Section 3.1.2 the graph of f(x,y,z) consists 
of a set of points (x,y,z,f(x,y,z)) in four-dimensional space. So, we are not 
able to draw it. However, we may plot it as a level surface at height 0, as is 
illustrated in the figure below: 


(* Plot the hypersurface as a level surface at height 0 *) 
P={2,1,1}; 


surface=ContourPlot3D[x z+2x^2 y+y^2 z*3==11, {x,-8,8}, {y,-8,8}, 
{z,-8,8 }, Mesh->None,ContourStyle->Opacity|0.6],AxesLabel-> 
ix ey "zn } ] ; 


tangentP=ContourPlot3D[9 x+10 y+5 z==33, {x,-8,8}, {y,-8,8}, 
{z,-8,8 }, Mesh->None,ContourStyle-> ( Green,Opacity [0.3 ]) |; 


point=Graphics3D[ ( Red,PointSize[0.03 ],Point[P]3 ]; 


Show[surface,tangentP,point, ViewPoint-> {15,-8,20} | 


Figure 3.18. The surface x z*2x^2 y*y^2 z^3-11 and the tangent plane at 
P=(2,1,1). 


(b) 


Clear[f] 


X ,y z |:=x^2+z^2 E^(y-x)-13 
ED AA y 


tangentHyperplane[f, (2,3,3/Sqrt[E ] ]//Simplify 


(* Plot the hypersurface as a level surface at height 0 *) 
P={2,3,3/Sqrt[E]}; 


surface-ContourPlot3D[x^2-z^2 E’(y-x)==13, {x,-8,8}, {y,-8,8}, 
{z,-8,8 },Mesh->None,ContourStyle->Opacity[0.6],AxesLabel-> 
{"x" Vt "z" } | : 


tangentP=ContourPlot3D[-5 x9 y+6 Sqrt[E] z==35, {x,-8,8}, {y,-8,8}, 
{z,-8,8 },Mesh->None,ContourStyle-> {Green,Opacity[0.3]} ]; 


point=Graphics3D[ {Red,PointSize[0.03],Point[P]}]; 


Show[surface,tangentP, point, ViewPoint-> {15,-8,20} ] 


Figure 3.19. The surface x^2—z^2 E^(y-x)-13 and the tangent plane at P= 
(2,3,3/Sqrt[E ]). 


Up to this point, we have discussed the gradient and derivative of scalar- 
valued functions of several variables. The results can be generalized to 
vector-valued functions of several variables as well. However, since a 
vector-valued function consists of scalar components is a vector itself we 
shall not define its gradient but only the derivative. 


Definition 3.4 (matrix of partial derivatives) 


" m 
Let f: (X1, Xo, ... X5) >R pe a vector-valued function of n variables. 
The matrix of partial derivatives of f, denoted Df is a nx n matrix 
Of 
whose ij-th entry is ?*/ , where fi: (X1, X2, --- Xn) >R is the i-th 
component function of f. The derivative of f is defined as 


(3.9) 
S SM us PE 
8x1 Oxo OXn 
m EE e E 

Df(x1, X2, Ln Xn) = 9x1 0x2 0Xn 
om 9m ... 2m 
8x1 0% ÖXn 


Note that when m=1, the matrix reduces to a row matrix which is the same 
as the one in the case for derivative of a scalar-valued function as defined in 


Definition 3.1. The i-th row of Df is just D fi in which the entries are the 
components of the gradient vector Vf, 


Example 3.23. Find the matrix of partial derivatives of the function f at 
the point (2,1) given by 


f(x,y)=(k y^2, x2+y, sin x x y). 


Solution: 


This is a three-dimensional vector-valued function of two variables x and y, 
where 


fi(x,y)=xy?, h(x,y)=x*+y, — f(x, y) =sin xy 


So, we find the matrix of partial derivatives using Definition 3.4: 


or Of 
Ox dy 2 
Df(x, y) -| 22 22 |= : P d 
ôf Öfz JU y COSJUXy JTXCOSTTXY 
Ox dy 


The matrix of partial derivatives of the function f at the point (2,1) is 
then 


1 4 
pre, - [4 1 | 
mT 270). 


Clear[f,x,y | 


f[x ,y ]- ix y^2,x^2*y,Sin[n x y]} 


Mathematica has a nice tool to compute the matrix of partial 
derivatives using the Outer command. 


(* Compute Df using Outer command *) 
Outer[D,f[x,y], {x,y} |//MatrixForm 


Outer[D,f[ x, y], {x,y} ]/. {x->2,y->1}//MatrixForm 


Example 3.24. Find the matrix of partial derivatives of the function f at 
the point (2,0,-1) given by 


f(x, y,Z)=(2x-y+3z,Sqrt[x*2+y"2+z"2]) 


Solution: 


The function defined in this example is two-dimensional vector-valued 
function of three variables, where 


f(x, y, Z)=2xX-y+3z, f(x, y,z)- NX «y^ «z 


So, the matrix of partial derivatives of f is 


“a a 2 2 -1 3 
Df(x, y, Z)= Ox Oy az | 


Ofo ôf ôf < ——— ——— 
2 2 2 
V x7 +y7 427 V x7 y^ 427 4x «y^ 427 


Clear[f,x,y,z] 


fIx_,y_,z_]:>{2x-yt3z,Sgrt[x"2+y”2+z”2]} 


(* Compute Df using Outer command *) 
Outer[D,f]x,y,z], {x,y,z} //MatrixForm 


Outer[D,f] x,y,z], {x,y,z} ]/. {x->2,y->0,z->-1}//MatrixForm 
3.2.1 Directional Derivatives 


Suppose f(x,y) be a scalar-valued function of two variables. We have seen 
earlier that the definition z=f(x,y) corresponds to a surface in three- 


dimensional space. Geometrically, the partial derivatives of f with respect to 
ôf 


x, that is ax ata point (a,b,f(a,b)) can be viewed as the slope of the curve 
obtained as the intersection of the surface with the plane y=b. Similarly for 


af 
the other partial derivative 3y at the same point as the slope of the curve 
obtained as the intersection of the surface with the plane x=a. 


However, there are infinitely many planes that could intersect with the 
surface at the point (a,b,f(a,b)). Thus, this leads to the definition of 
directional derivatives. 


Definition 3.5. (directional derivative) 


Let f : (X, Y) >R pe a scalar-valued function, and 8 = (Xo; Yo) be a point 
2 

in R? , rf U = (Uo, U1) € Rf is any unit vector, then the directional 

derivative of f at a in the direction of u, denoted Du f(a) is 


(3.10) 
Du f(a) = © f(a+tu) m 
,wheret eR . 


Definition 3.5 can be generalized to scalar-valued function of more than 
two variables. 


Note that the partial derivatives with respect to x and y are the directional 
derivatives with respect to the standard unit vectors 1=(1,0) and j=(0,1), 
respectively. 


Thus, 


Dj f (a) = f, (a) and Dj f(a) = fy (a) f 


Suppose x and y are functions of t, and let r(t)=(x(t), y(t)) parametrizes a 
curve in the domain of f. 


Write r(t)=a+t u, where 8 = (Xo, Yo) a constant. Then by the chain rule and 
Definition 3.1 we have 


£ f(a+tu)=Df(x, y) E r(t) 


(3.11) 


€ f(a+tu)=Vf(x, yj- {9 


Thus, by equation (3.10) 
(3.12) 


Dy f(a) = © f(a +t u) | ico = Vf(xo, yo) ` r' (0) 


Equation (3.12) tells us that the directional derivative of f in the 
direction of u is the dot product of the gradient of f with the velocity 
vector of the curve at t=0, where u=r'(t). 


Suppose that a curve parametrized by c(t)=(x(t),y(t)) is a level curve of 
f(x,y). 


We see in Section 3.1.1 a level curve of z=f(x,y) is constant. So, 
f(c(t))=constant. 


Taking the derivative of f(c(t)) with respect to t and using the chain rule we 
get 


< f(c(t)) = Vf(c(t)- c' (t) 20 


Thus, we have Vf(x, y) : c' (t)=0 for all t, that is, the gradient of f is 
perpendicular to the tangent vector to the level curve, and thus to the level 
curve itself. 


Another consequence of the directional derivative is due to the 
property of the dot product at the right-hand side of equation (3.12). 


The value of Du f(a) is maximum when u=r'(0) points in the same 
direction as V£ and is minimum when u points in the opposite 
direction. 


The maximum and minimum values of Du f (a) are I| Vf (a) || and 
- || Vf(a) ||, respectively. 


Finally, if the point 4 = (Xo, Yo) is a critical point of f, then 

Vf(Xo, yo) = (0, 0), Thus, Du f(a) = 0 implies that all directional 
derivatives of f vanish at a. At such point however, there may not have 
a well-defined tangent vector to the level curve. 


As illustrations, let us consider some examples below. 


Example 3.25. Find the directional derivative of the given function f at 
the point a in the direction parallel to the unit vector u. 


(a) f(x, y)-E^y cos x, a=(n/3,0), u-(1 + 2j)/Sqrt[5 ]. 


(b) f(x.y,z)-E^-(x^2 + y^2 + z^2), a=(1,1,1), u-(i + j + k)/Sqrt[3]. 


Solution: 


(a) 


Using equation (3.10) from Definition 3.5 the directional derivative of f at 
a=(r/3,0) in the direction of u=(i + 2j)/Sqrt[5], denoted Du f(a) | is 


Dy f(a) = - f (a * t u) | izo 


o,(s.0) 5.0) teca) In 


which yields 

hs = 2-43 
Duf(¥, 0) = 245 . 
Clear[f,a,u,t] 


f[ix ;y j]:-E^y Cos[x] 
a={n/3,0}; 


u=1/Sqrt[5] {1,2}; 


D[flatt u],t]/.t->0//Simplify 


Similarly, we can also use the gradient of f to find the directional derivative 
of f at a=(n/3,0) in the direction of u-(1 + 2j)/Sqrt[5]. Recall equation (3.12) 


Dy f(a) = © f(a « tu) |izo = Vf(xo, yo) : r' (0) 


The gradient of f(x,y) is 


Vf(x, y) =(-e” sin x, e” cos x) 
m E 1 

ES 0) =( 2 v3, 2 

The parametric equation is 

r(t)-a-t u, 

r(t)-(1/3,0)"-t 1/Sqrt[5] (1,2) 


r(t)- l/Sqrt[5] (1,2), r'(0)=1/Sqrt[5] (1,2). 


Thus, using equation (3.12): 


Duf(Z, 0) - (-1 V3, D. 2.) 2-48 


2 


Grad[f] {x,y} ],{x,y},"Cartesian"].u/. {x->7/3,y->0}//Simplify 


(b) 


Using the same method as in part (a) we obtain the directional 
derivative of f at a=(1,1,1) in the direction of u=(i + j + k)/Sqrt[3]: 


D,f(1, 1, 1)=-23 
e : 


Clear[f,a,u,t] 
fL{x_,y_,z_ J|. 2E^-(x^2*y^2*z^2) 
acil bir 


u=1/Sqrt[3] {1,1,1}; 
D[fla+t u],t]/.t->0//Simplify 


Example 3.26. A scalar-valued function is given by 
f(x,y) =(x^2+y^2)^2-x^2+y^2. 


(a) Graph the surface and the level curves of the function in the region 
-2<=x<=2, -2<=y<=2, 


(b) Find the critical points of f, that is, points where Vf =0 . 


(c) Draw the gradient of f and show that they are perpendicular to the level 
curves. 


Solution: 


(a) 


Clear[f,x,y | 


f[x ,y [2(x^2*y^2)2-x^2Ty^2 


Plot3D[f[x,y], {x,-2,2}, {y,-2,2},AxesLabel->{"x","y","z"} ,BoxRatios-> 
{1,1,1}] 


2 


Figure 3.20. The surface of the function f(x,y)-(x^2*y^2)^2-x^2*y^2. 


To draw the level curves of the function z=f(x,y) we use ContourPlot 
command; and to differentiate those level values which are negative, 
null, and positive, we use blue, red, and green color, respectively. For 
our purpose, we choose z=(-0.2,-0.1) to represent negative level curves, 
z=0 for null level curve, and z=(0.1,0.2,1,4,10) for positive level curves. 


(* ContourPlot for negative values of f *) 


contourPlotNeg=ContourPlot|f]x,y], {x,-2,2}, {y,-2,2},ContourShading- 
>False,Contours->{-0.2,-0.1},ContourStyle-> 
{ {AbsoluteThickness[2],Blue} | ]; 


(* ContourPlot for positive values of f *) 


contourPlotPos-ContourPlot[f| x, y], {x,-2,2}, {y,-2,2},ContourShading- 
>False,Contours->{0.1,0.2,1,4,10},ContourStyle-> 
{ {AbsoluteThickness[2],Green } } |; 


(* ContourPlot for special case f=0 *) 


contourPlotNull-ContourPlot[f[x,y ], {x,-2,2}, {y,-2,2},ContourShading- 
>False,Contours-> {0},ContourStyle-> { AbsoluteThickness|2],Red} |; 


Show[contourPlotNeg,contourPlotPos,contourPlotNull] 


a a ww °* 2 


Figure 3.21. The level curves of the function z-f(x,y)-(x^2*y^2)^2- 
x^2ty^2. Blue curve corresponds to the value z=-0.2 and z=-0.1; red curve 
corresponds to z=0, and green curves correspond to z=0.1,0.2,1,4, and 10. 


(b) 


(* Compute the gradient of f *) 


grad-Grad[f[x,y ], {x,y ) ," Cartesian" ] 


(* Find the critical points of f *) 


sol-Solve[grad—- (0,01 //Thread, {x,y} ] 


(* These are the critical points of f *) 


criticalPoints={x,y}/.sol 


Out of five of the critical points obtained, we only use three for drawing 
purposes since the other two are complex values. So, these are 


(0,0), (-(1/Sqrt[2]),0) and (1/Sqrt[2],0). 


criticalPointsPlot=Graphics| {PointSize[0.02], {Point {0,0} ], Point[ {- 
(1/Sqrt[2]),0}],Point[ {1/Sqrt[2],03 133]; 


Show[contourPlotNeg,contourPlotPos,contourPlotNull,criticalPointsPlot | 


= a °° 4 X 2 


Figure 3.22. The level curves of f(x,y)=(x*2+y%2)*2-x’2+y”2 with three 
critical points at (0,0), (-(1/Sqrt[2 |),0) and (1/Sqrt[2],0). 


Notice that at these critical points all directional derivatives of f vanishes. 
Also note that the level curve z=0 passes through the origin. At this point, 
there is no well-defined tangent direction since the level curve crosses itself 
here. 


(c) 


To plot the gradient vector field of f, we can use StreamPlot command: 


streamPlot=StreamPlot[ { grad[[1]],grad[[2]]},{x,-2,2}, {y,-2,2}] 
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Figure 3.23. The gradient field of f(x,y) =(x^2+y^2)^2-x^2+y^2. 


Show[contourPlotNeg,contourPlotPos,contourPlotNull,criticalPointsPlot,str 
eamPlot] 


Figure 3.24. The level curves of f(x,y)=(x^2+y^2)^2-x^2+y^2 with the 
three critical points at (0,0), (-(1/Sqrt[2]),0) and (1/Sqrt[2],0), and the 
gradient field of f. 


As can be seen from the figure above, the gradient vectors are perpendicular 
to these level curves, and all moving away from the critical points. 
However, at the origin (which is one of the critical points where Vf =0 ), 
there are gradient vectors that point toward and outward of this point. This 
explains the self-crossing level curve at the origin. 


Example 3.27. Find the curve y=g(x) passing through (0,1) that crosses 
each level curve of the graph f(x,y)=y sin x at a right angle. Plot some level 
curves of f(x,y) and the curve y=g(x). 


Solution: 
First we evaluate the gradient of f(x,y): 


Vf(x, y) z (y cos x, sin x) 


Grad[y Sin[x], {x,y},"Cartesian" | 


Recall from Section 3.2.1 the gradient of f(x,y) is perpendicular to the level 
curves of f(x,y). Thus, the slope of y=g(x) is parallel to Vf(x, y) . 
Therefore, 


dy/dx=(tan x)/y. 
Solving the differential equation above yields the general solutions: 
y=+Saqrt[2c-In (cos^2 x)], 


where c is constant of integration. 


DSolve[y'[x]-- Tan[x]/y[x y.x] 


Since the curve passes through the point (0,1), the particular solution is 
y-Sqrt[2c-In (cos^2 x)]. 


Substituting (x,y)=(0,1) into the equation above gives 


1=Sqrt[2c-In (cos^2 0)], 


c=1/2. 
Hence, the equation of the curve: 


y-g(x)-Sqrt[1-In (cos^2 x)]. 


plot[1]-ContourPlot[y Sin[x], {x,0,10}, {y,0,5},ContourShading- 
>False,Contours-> {-1,0.2,0.5,1},ContourStyle-> 

{Black,Green, Yellow,Red} ,Frame->None,Axes->True,AxesLabel-> 
{"x","y"} PlotLegends->Automatic]; 


plot[2 |=Plot[Sqrt[1-Log[Cos[x]*2]], {x,0,10} |; 


Show|Array[plot,2], AspectRatio-^1/2 | 


Figure 3.25. The level curves of the graph f(x,y)=y sin x and the curve 
y-g(x)-Sqrt[1-In (cos^2 x)] that crosses each level curve at a right angle. 


Example 3.28. Consider an ellipsoidal mountain with equation z=100- 
Sqrt[4x^2y^2], where z>=0. 


(a) It is raining and rainwater is running off the mountain. Plot the mountain 
and find the curves whose paths the raindrops must follow to slide down as 
rapidly as possible. 


(b) Suppose a contractor is to build a road up the mountain to the top. 
According to the normal standard the rate of climb of the road should be a 
fixed reasonable constant 1/25 (this amounts to a 4% grade condition). 
Show the 4% grade condition is satisfied by the road if the path is 
parametrized by the following equations: 


x(t)=a t cos (b In t), y(t)=2at sin (b Int), z(t)}=100-2at, for 0<=t<=50/a, 


where a=1/50, b=Sqrt[3599]. Plot the path of the road going up the 
mountain. 


Solution: 


(a) 


The ellipsoidal mountain with equation z=100-Sqrt[4x*2+y%2], where z>=0 
can be considered as level curves of the form f(x,y)=constant: 


f(x,y)=100-Sqrt[4x%2+y*2]|=c, | where c is constant. 


Clear[f] 


fix_,y_]:=100-Sqrt[4x^2+y^2] 


mountain-Plot3D[f[x,y], {x,-100,100},{y,-100,100},Mesh- 
>None,PlotRange->{Automatic,Automatic, {0,100} },AxesLabel-> 
{"x","y"," z" } ImageSize->500] 


100 


Figure 3.26. The graph of the mountain as represented by z=100- 
Sqrt[4x^2+y^2]. 


(* Find the gradient of f(x,y) *) 


Grad[f[x, y], (x, y) ," Cartesian"] 


From Mathematica result above, the gradient of f(x,y)-100-Sqrt[4x^2-y^2] 
is 


e" ER 4x _ y 
as »-[ V4x7+y? V4x7+y? | 


Recall from equation (3.12) the directional derivative of f(x,y) in the 
direction u is 


Du f (x, y) - Vf(x, y) u, 


Du f(x, Y) is maximum if u is in the direction of the gradient of f and 
minimum if u is in opposite direction. 


In this case, the raindrops are heading towards lower level curves while 


intersecting each level curve orthogonally. For the path of steepest descent, 
we consider the negative gradient of f: 


-Vf(x, y) =| 


4x y 
Yaxıy Yaxıy 


This means that the slope of the path dy/dx is 


Hence, the equation of the level curve can be determined by solving the 
differential equation above. 


DSolve|[1y'[x]7-y[x]/(4x) ], y[x].x |/PowerExpand 
The solution is y=c x^(1/4). 


The path of the raindrops (x, y, f(x,y)) 1s then 


(x, c x^(1/4), 100-Sqrt[4x^2--c^2 x^(1/2)]), 


where c is any arbitrary constant. 


Clear[r] 


r[c_][t_]J={t,c t6(1/4),100-Sqrt[4t*2+c%2 t*(1/2)]} 


rainPaths=ParametricPlot3D[Table[r[c][t], {c,0,20,5 } |//Evaluate, 
{t,0,60} ,PlotStyle-^Table[ ( Dashed,AbsoluteThickness[3 | Hue[1]), 
{1,0,1,0.2} ]]; 


Here we show some paths of the raindrops with steepest descent depending 
on the value of c: 


Show[mountain,rainPaths, ViewPoint-^ {100,-70,100} | 


100 ^ _ 100 


Figure 3.27. Some paths of the raindrops with steepest descent. 


(b) 


Using equation (3.11) the rate of climb of f in the direction of the tangent 
vector along the road must satisfy: 


| eo 
hide ee 


Clear[a,b] 
x[t_]:=a t Cos[b Log[t]] 


y[t_]:=2a t Sin[b Loglt]] 


z|t |:-100-Sqrt[4x[t]^2y[t]^2 |//Simplify//PowerExpand 


r[t_]:={x[t]y[t],z[t]} 


gradf[t ]:-Grad[f[x,y ], {x,y,z},"Cartesian"|/. {x->x[t],y- 
>y[t]}//Simplify//PowerExpand 


(* The 4% grade condition is satisfied *) 


Abs[gradf]t].r'[t]]/. {a->1/50,b->Sqrt[3599]}//Simplify 


road-ParametricPlot3D[Evaluate[ {x[t],y[t],z[t]}/. {a->1/50,b- 
>Sqrt[3599]} ], {t,0,2500 },AxesLabel->{"x","y","z"},BoxRatios->{1, 1, 1}]; 


Show[mountain,road] 


Figure 3.28. The path of the road going up the mountain with 4% grade 
condition. 


Chapter 4. Surfaces 


A surface is a 2-dimensional analog of a curve. Just as a 3-dimensional 
curve is considered as the image of a continuous function mapping an 


interval in R to RÊ , a surface is the image of a continuous function 


mapping an interval in R? to RÊ , Since the domain of surfaces are 2- 
dimensional; in general surfaces are much more complicated to deal with 
than curves. 


Surfaces in R? can be described using the following methods: 
1. as a graph of a function of two variables, that is, z=f(x, y). 


So, surfaces are set of points (x, y, f(x, y)). 


2. as a level set of function of three variables, that is, f(x, y, z)=c, where c is 
constant. 


3. as a parametrized continuous function X: D > R? , where the region D is 


either a rectangle or a disk in R? consists of a connected open set, either 
some or all of its boundary points. 


Throughout the book we consider mostly with the parametrization of 


surfaces in R? . If u and v are coordinates on D, they are called parameters 
or generalized coordinates on the surface. 


Thus for (4, V) €D , the component functions of parametrized surface 
X can be written as 


X(u, v)=(x(u, v), y(u, v), z(u, v)). 


To plot surfaces in Mathematica we use Plot3D, ContourPlot3D, and 
ParametricPlot3D for first, second, and third method, respectively. 


Initialization 


Clear["Global**"] 

SetOptions[Plot3D,PlotTheme->"Classic" |; 
SetOptions[ContourPlot3D,PlotIheme->"Classic"]; 
SetOptions[Plot,PlotTheme->"Classic",PlotStyle->AbsoluteThickness[2]]; 


SetOptions[ParametricPlot3D,PlotTheme-^"Classic",PlotStyle- 
>AbsoluteThickness[2]]; 


Example 4.1. (Method 1) Plot the paraboloid given by the equation 
Z—2x^2T2y^2. 


Solution: 


Plot3D[2x^2*2y^2, {x,-2,2}, fy,-2,2}] 


Figure 4.1. The graph of a paraboloid z-2x^242y^2. 


Example 4.2. (Method 2) Plot the surface defined by the function 


f(x, y,Z)=x%2 y-z^2 y^3+ z^2-1. 


Solution: 


ContourPlot3D[x^2 y-z^2 y*3+z“2==1, {x,-5,5}, {y,-5,5},{Z,-5,5}] 


Figure 4.2. The graph of the surface f(x,y,z)= x2 y-z^2 y^3* z^2-1. 
Example 4.3. (Method 3) Plot the ellipsoid defined in parametric form 
ellipsoid[a, b, c](u,v)=(a cos v cos u, b cos v sin u, c sin v), 

where U €[0, 271] v e[0, 271]. 


Solution: 


Clear[ellipsoid,a,b,c,u,v] 


ellipsoid[a ,b ,c |[u_,v_]:={a Cos[v]Cos[u],b Cos[v] Sin[u],c Sin[v]} 


ParametricPlot3D[ellipsoid[ 1,2,1][u,v], {u,0,27}, {v,0,27} ] 


1.0 


Figure 4.3. The graph of an ellipsoid parametrized by ellipsoid[a,b,c](u,v)= 
(a cos v cos u, b cos v sinu, c sin v). 


4.1 Coordinate Curves, Tangent Planes, and Normal Vectors 


Let X: D 2 R? be a continuous parametrization of a surface. If we fix 


V = Vo and let only u varies, we obtain a continuous function X(U, vo) | 


Similarly, if we fix 4 = Uo and let only v varies, the continuous function be 
X(uo, v) 


We call X(U, Vo) and X(Uo. V) , the u-coordinate curve at Vo and v- 
coordinate curve at “0 , respectively. 


The surface X is regular at a point (Uo, Vo) if its partial derivatives 


denoted Xu(Uo, Vo) and Xv(Uo, Vo) are continuous, nonzero, and 
noncollinear. Points where X is not regular are called singular points. 


Since Xu(Uo, Vo) and Xv(Uo, Vo) are noncollinear, that is, they do not lie on 


the same line, they determine a tangent plane at the regular point (Uo, Vo). 
We can form a vector 


(4.1) 


N(uo, Vo) = Xu(Uo, vo) x Xy(uo, vo) 


’ 


which is normal to this tangent plane, and hence to the surface itself at 
(Uo, Vo) . 


A regular surface is said to be smooth if N= X, x X, is nonzero at every 
point within its definition. 


The equation for the plane tangent to this surface at the point (Xo; Yo, Zo) is 
then 


(4.2) 
(x- Xo, y - Yo, Z- Zo) N=0 
where 


Xo = X(Uo, Vo), yo = y(Uo, Vo), Zo = Z(uo, vo) 


We define modules to compute the normal vector and the equation for the 
tangent plane to the surface as follows: 


normal[X ][u ,v ]:- 
Module[ {U,V}, 
Cross[D[X[U,V],U],D[X[U, V], V]]/. {U->u, V->v}//Simplify 


] 


tangentPlane[X ][uO ,vO _]:= 
Module[1), 


normal[X ][u0,v0].( {x,y,z}-X[u0,v0])==0//Simplify 


Example 4.4. Let X: R? > R? be a parametrized surface given by 
X(u, v)=(u?2 cos v, u^2 sin v, u), -3«-uc-3, 0«-v«-2m. 

(a) Find a normal vector to this surface at (u,v)=(-1,0). 

(b) Determine the plane tangent at the point (1,0,-1). 

(c) Find an equation for the image of X in the form f(x, y, z)=0. 


(d) Plot the tangent plane and the surface at point (1,0,-1). 


Solution: 


(a) To avoid confusing with the x-coordinate, we use capital X for the 
surface definition in Mathematica. 


Clear[X | 


X[u_,v_]:={u%2 Cos[v],u^2 Sin[v],u} 


X[-1,0] 


So, (u,v)=(-1,0) corresponds to the point (1,0,-1). 


ParametricPlot3D[X[u,v]//Evaluate, {u,-3,3},{v,0,27} ] 


Figure 4.4. The graph of the surface X(u,v)-(u^2 cos v,u^2 sin v,u). 


X, =(2ucosv, 2usinv, 1), 
X, = (-u* sin v, u? cos v, 0). 


By equation (4.1) the normal vector is 
N-X,x X,. 

N - (2ucosv, 2usinv, 1) x (-u?sinv, u? 
N=(-u* cos v, -u° sin v, 2 u°). 


cos v, 0), 


The normal vector at (u, v)=(-1, 0) is 


N(-1, 0)=(-1, 0, -2). 


normal[X][u,v] 


normal[X][-1,0] 


(b) 
Note that the point (1, 0, -1) corresponds to (u, v)=(-1, 0). 


Using equation (4.2) the equation for the plane tangent to this surface at the 
point (1, 0, -1) 1s then 


(x-1, y, z* 1): N(-1,0) 20, 
(x-1, y,Z+1)- (-1,0, -2)=0, 
X+2Z=-1. 


tangentPlane[X |[-1,0 | 


(c) 

From the parametric equation write 
x-u^2cosv, y=u^2 sin v, Zz-u. 
Hence, 

x^2+y^2=u^4,. 

Thus, 

Z=u=(x2+y*2)\(1/4), x^2ty^2-z^4. 
So, 


f(x,y,z) =x^2+y^2-z^4=0. 


Note that this is a level surface of f(x,y,z) at height 0 as is discussed in 
Chapter 2. 


(d) 


u0=- 1;v0=0; 
Module[ {x0,y0,z0}, 
1x0,y0,201 —X[u0, v0]; 


plot !1=ContourPlot3 D[tangentPlane[X ][u0,v0]//Evaluate, {x,-10,10}, 
fy,-10,103, {z,-3,3},PlotTheme->"Classic"]; 


plot2=ParametricPlot3 D[ X[u,v |//Evaluate, {u,-3,3}, {v,0,27} ,PlotTheme- 
>"Classic"]; 


plot3=Graphics3D[ ( Red,PointSize[0.02 ],Point[ X[u0,v0]] ]; 
Show[plot1,plot2,plot3,PlotRange->All] 


] 
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Figure 4.5. A tangent plane at point (1,0,-1) to the surface X(u,v)-(u^2 cos 
v,u^2 sin v,u). 


Example 4.5. The parametric form of a torus is given by 

X(u, v)=((3+2 cos v) cos u, (342cos v) sin u, 2sin v), 0<=u,v<=2n 
(a) Find a normal vector to this surface at (u,v)=(n/3,n/3). 

(b) Determine the plane tangent at (u,v)7(1/3,1/3). 

(c) Find an equation for the image of X in the form f(x,y,z)=0. 


(d) Plot the tangent plane and the surface at (u,v)-(1/3,1/3). 


Solution: 


(a) 
Clear[X] 
X[u_,v_]:={(3+2Cos[v])Cos[u],(3+2Cos[v])Sin[u],2Sin[v]} 


ParametricPlot3D[X[u,v]//Evaluate, {u,0,27}, {v,0,27} ] 


Figure 4.6. The graph of the torus X(u, v)=((3+2 cos v) cos u,(3+2cos v) sin 
u, 2sin v). 


X, = (-C(8- 2cos v)sin u, (3+2cosv)cosu, 0), 
X, = (-2sin v cos u, -2 sin v sin u, 2 cos v). 


The normal vector is given by 


N-X,xX,. 


N - (-(8 -2cos v)sin u, (3+2cosv)cosu, 0) 
x (-2 sin v cosu, -2 sin v sin u, 2 cos v), 


’ 


N=(2(3+2cosv)cosucosv, 2(3+2cosv)sinucosv, 
2(3+2cosv)sinv). 


The normal vector at (u,v)=(n/3,/3) is 


N(n/3, n/3)-(2, 2Sqrt[3], 4Sqrt[3]). 


normal[X][u,v] 


normal[X][1/3,2/3 ] 
(b) 
X[n/3,n/3] 


Note that (u, v)=(2/3, 1/3) corresponds to the point (2, 2Sqrt[3], Sqrt[3]). 


The equation for the plane tangent to this surface at the point (2, 2Sqrt[3 ], 
Sqrt[3]) 1s then 


(x-2, y-2V3, z-v3) N(Z, Z)=0 


(x-2, y-2V3,z-V3] ; (2,2V3,4V3)=0 


2 


x+V3 y+2V3 z=14. 


tangentPlane[X |[1/3,2/3] 


(c) 


Recall X(u, v)=((3+2 cos v) cos u, (3+2cos v) sin u, 2sin v), 


From the parametric equation write the components as 
x=(3+2 cos v)cosu, y=(3+2cos v)sinu, z=2sin v. 
Hence, 

x^2ty^2-(342 cos v)^2, 

Sqrt[x*2+y%2|=3+2 cos v, 

4cos^2 v=(3 - Sqrt[x^2*y^2])^2, 


4 - z^2-(3 - Sqrt[x^2*y^2]Y^2. 


Thus, there is a relation between x,y, and z given by 


zN2=4 - (3 - Sqrt[x^2+y^2])^2 


So, 


f(x, y,z)=4 - (3 - Sqrt[x^2*y^2])^2 - z^2-0. 


(d) 


u0-77/3;v0-7n/3; 
Module[ {x0,y0,z0}, 
{x0,y0,z0}=X[u0,v0]; 


plot 1=ContourPlot3 D[tangentPlane[X ][u0,v0]//Evaluate, {x,-5,5}, {y,-5,5}, 
{z,-3,3},PlotTheme->"Classic" |; 


plot2=ParametricPlot3 D[ X[u,v |//Evaluate, {u,0,27}, {v,0,27} ,PlotTheme- 
>"Classic"]; 


plot3=Graphics3D[ ( Red,PointSize[0.02 ],Point[ X[u0,v0]] |; 
Show/[plot1,plot2,plot3,BoxRatios->Automatic] 


] 


Figure 4.7. A tangent plane at point (2, 2Sqrt[3], Sqrt[3]) to the torus X(u, 
v)=((3+2 cos v) cos u, (3+2cos v) sin u, 2sin v). 
The following figures show the u-coordinate curves and v-coordinate 
curves, respectively. 


(* u-coordinate curves *) 


ParametricPlot3D[Table[X[u,v ]//Evaluate, {v,0,27,7/6} ], {u,0,27} ,PlotStyle- 
>{Blue,Dashed,AbsoluteThickness[2]} | 
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Figure 4.8. Some of the u-coordinate curves of the torus X (u, v)=((3+2 cos 
v) cos u, (3+2cos v) sin u, 2sin v). 
(* v-coordinate curves *) 


ParametricPlot3D[Table[X[u,v]//Evaluate, {u,0,27,7/6} |, {v,0,27} ,PlotStyle- 
> (Red,Dashed,AbsoluteThickness|[2]) ] 
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Figure 4.9. Some of the v-coordinate curves of the torus X(u, v) 


V) cos u, (3+2cos v) sin u, 2sin v). 


4.2 Surface Integrals 


4.2.1 Area of a Parametrized Surface 


Definition 4.1 


Let X: D > R? be a smooth parametrized surface, where D is an 
arbitrary region, then the surface area of X is defined by 


(4.3) 


Area = f f, IIX, x X, IIdu dv 


Example 4.6. Find the surface area of the torus described in Example 4.5. 


Solution: 

Recall from Example 4.5 the parametric form of a torus is given by 
X(u, v)=((3+2 cos v) cos u, (342cos v) sin u, 2sin v), 0<=u,v<=2n. 
The normal vector is 


N(u, v) =X,(u, v) x X,(u, v) 


N(u, v) =(2(8+2cos v) cos u cos v, 2(3+2cosv)sinucosv, 
2 (3-- 2cos v) sin v). 


I| N(u, v)]| = |] Xu(u, v) x Xy(u, v) || 
=2(3+2cosv). 


Clear[X] 


X[u_,v_]:={(3+2Cos[v])Cos[u],(3+2Cos[v])Sin[u],2Sin[v]} 


Sqrt[Cross[D[X[u,v],u],D[X[u,v],v]].Cross[D[X[u,v],u],D[X[u,v],v]]]//Simp 
lify//PowerExpand 


By equation (4.3) the surface area is 
Area = Ir (3+2cosv)dudv 
=24 7° 


Integrate[2(3+2 Cos[v]), {u,0,27}, {v,0,27} ] 


Proposition 4.2 


Let a smooth surface be described by the graph of a differentiable function 
z-f(x,y), where € Y € D . Then, the surface area of the graph of f(x, y) over 
D is given by 


(4.4) 


Area= | f, (£J «(£y «à dxdy 


Proof. 


Since the surface is described by the graph z=f(x,y), we can parametrized the 
surface by 


X(u, v)=(u, v, f(u, v)), 
where u=x, v=y. 
This implies that 
= öf - of 
Xy=(1, 0, a x, = (0, uU a 


a 4 


X, x Xy =(-2 ôv’ ). 


Hence, by Definition 4.1: 


Area - [ f, (£J «(£y «à dxdy 


Example 4.7. Find the area of a surface described by the graph 
z=f(x,y)=1/(4 y^2) (x^2-6 x yt2 x y^2+6 y*3+y%4), 


where the region is a rectangle 1/2<=x<=3 and 1/2<=y<=3. 


Solution: 


Clear[f,x,y] 


f[x_,y_]:=1/(4y%2) (x^2-6x y+2x y^2+6y^3+y^4) 


Plot3D[f[x,y |//Evaluate, {x,0.5,3}, {y,0.5,3} | 


Figure 4.10. The graph of the surface z=1/(4 y^2) (x^2-6 x y+2 x y^2*6 
y^3+y^4). 


ôf . 2x-6y«2y? 

ax 4y? 

ôf . -x2 +3 xy 43y3 « y^ 
dy 2y? 


fx-D[f[x.y].x] 


fy-D[f[x.y].y ]|//Together 


Using equation (4.4), the surface area is 


freo.sSy-08 (Ey z (Ey +1 dxdy = 19.6428 


Nintegrate[(fx*2+fy*2+1)(1/2), {x,0.5,3}, {y,0.5,3}] 


Note that we have used numerical integration to compute the area since it 
may not have an analytical solution. 


4.2.2 Scalar Surface Integrals 


Suppose there is a continuous scalar function f along a smooth 
parametrized surface X whose domain includes the surface; we define 


the scalar surface integral, denoted J hf ds 


given by 
(4.5) 


[fas= [fm IX, x X || dudv 


where D is a bounded arbitrary region. 


Physically, if f represents mass or electrical charge density, then the scalar 
surface integral yields the total mass or total charge on the surface, 
respectively. 


Example 4.8. Let f(x,y,z)=x*2+y*2+z"2 be the electrical charge density on 
the surface of a sphere of radius 1 defined by 


X(u, v)=(cos u sin v, sin u sin v, cos v), 0<=u<=2n, 0<=v<=n. 


Find the total surface charge on the sphere. 


Solution: 


Clear[X,u,v] 


X[u_,v_]:={Cos[u]Sin[v],Sin[u]Sin[v],Cos[v]} 


ParametricPlot3D[X[u,v], {u,0,27}, {v,0,7} ] 
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Figure 4.11. The graph of a unit sphere. 


Using equation (4.5) the total surface charge can be computed as 


Sh aS= Sff% IX, x X || dudv 


X, =(-sinusinv, cos u sin v, 0), 

X, = (cos u cos v, sin u cos V, -sin v), 
X, x X, = (-cos u sin? v, -sin u sin? v, -cos v sin v) 
I| Xu x X, || = sin v 


Since 


X=COS U SIN V, y=sin u sin v, Z=COS V, 

we get 

f(x, y,z)=(cos u sin v)*2+(sin u sin v)^24(cos v)^2 

—cos^2 u sin^2 v + sin^2 u sin^2 v + cos^2 v 

-] 

The total surface charge: 

fh I XuxXy II dudv= [27 (" sinvdvdu 
z247t 


Integrate[Sin[v], {u,0,27}, {v,0,7} | 


Example 4.9. Let S be the surface given by 
z=In (5-x^2-y^2), for 0<=x<=1, 0<=y<=1. 
(a) Plot the surface. 


(b) Calculate the surface area of S. 


2d 
(c) Calculate J Js* y dS l 


Solution: 


(a) 


Clear[f,x,y] 


f[x .y |:-Log[5-x^2-y^2] 


Plot3D[f[x,y ], {x,0,1}, {y,0,1}] 


fx=D[f]x,y],x] 


fy=D[f[x, y].y] 


Using equation (4.4), the surface area is 


Koho (ZV +(&) +1 ax ay = 1.07805 


NIntegrate[(fx^2--fy^2--1)^(1/2), x,0,11, {y,0,1}] 


(c) 

The parametric equation of the surface is given by 

X(u, v)=(u, v, In (5-u^2-v^2), | 0<=u<=1, 0<=v<=1, 

where u=x, v=y. 

The scalar surface integral can be computed using equation (4.5): 


Jf,fas= [fm || Xu x X, || dudv 


Xy=(1, " a] 


X, =(0, 1, 5). 


2u 2v 
X, xX, 2|- — >, - 757 1) 
j d -b«u? «v2! -5+u +v?’ 


25 «u^ -6v? «v^ +24 (-3+v?) 


(-5 ru vr 


I| X, x X, || = 


Clear[X,u,v] 


X[u ,v F7 fu, Log[5-u^2-v^2]] 


D[X[u,v],u] 
D[X[u,v],v] 
Cross[D[X[u,v],u],D[X[u,v],v]] 


Sqrt[Cross[D[X[u,v],u],D[X[u,v],v]].Cross[D[X[u,v],u],D[X[u,v],v]]]//Toge 
ther//Simplify 


4n 25+u4 -6v? «v^ «2u* (-3 v?) 


= 0.09814 


NIntegrate[u^2 v^3*Sqrt[(25--u^4-6 v^2+v^4+2 u^2 
(-3+v^2))/(-5+u^2+v^2)^2], tu,0,15,1v,0,1j] 


4.2.3 Vector Surface Integrals 


Suppose there is a continuous vector function F along a smooth 
parametrized surface X whose domain includes the surface; we define 


F-ds 


the vector surface integral, denoted J hk given by 


(4.6) 


JAF dS = [[,F(X) : N(u, v)dudv 


? 


where D is a bounded arbitrary region and the normal vector 
N(u, v) z X, x Xy is continuously consistent. 


We write a module called vectorSurfIntegral to compute the vector 
surface integral of F(x,y,z) along the parametrized surface X as given by 
equation (4.6). Since the module uses Integrate command, we assume 
Mathematica has analytical solution. We will use this module again in 
Chapter 8 when we study Stokes's and Gauss's Theorems. 


(* Compute the vector surface integral of F(x,y,z) along X 
sign :1 indicates the default sign of normal vector 

*) 

vectorSurfIntegral[X ,F ,{sO ,sl 1,1t0 „tl j,sign :1]:= 


Module[ {u,v,F1,F2,F3,normal Vector}, 

normal Vector=sign*Cross[D[X[u,v],u],D[X[u,v],v]]/. {u->s,v->t}; 
(FLEZ,F3j- (F[XTu,v [E ].X[u. v ]TE2T]-X Tu. v L3 HEEL ]FEXTu.v ] 

[ELT XTu.v [EZ T XTu.v ]EE3 TT]EE2 T] FEX Tus v TEL TX Tu. v L2 T] X Tu. v ]EE3 1T] 
[[3]]}/. {u->s,v->t}; 


Integrate[Dot[ {F1,F2,F3},normal Vector], {s,s0,s1}, {t,t0,t1 } | 


Note that by default the module expects the normal vector of X to be as 
is calculated. In the case that we need to reverse the direction of the 
normal vector, then we need to assign -1 to the sign argument in the 
module above. 


A surface which normal vectors are continuously consistent is said to be 
orientable (or two-sided). Otherwise, the surface is called nonorientable 
(or one-sided). 


Physically, the quantity J IF ee is known as the flux of F across 
X(u,v). If F represents the velocity vector field of a fluid, then the flux 
may be considered as the rate of fluid transported across X per unit 
time. The normal vector at a point is chosen as outward-pointing vector 
in a continuously consistent manner. 


The following example is an instance of a nonorientable surface. 


Example 4.10. The surface parametrized by 


x=(a+cos * sin v-sin 4 sin2v) cosu, 


y =(a+cos ¥ sin v - sin 4 sin 2v) sinu, 


z - sin 5 sin v « cos 2 sin 2 v, 


’ 


for 0<=u<=22, 0<=v<=27, where a is a positive constant, is known as a 
Klein bottle. 


Clear[X,X1,X2,X3,s,t] 

X1[a. ][u ,v. ]:-(a*Cos[u/2]Sin[v]-Sin[w2]Sin[2v])Cos[u] 
X2[a ][u ,v. ]:-(a*Cos[u/2]Sin[v]-Sin[u/2]Sin[2v])Sin[u] 
X3[a_J[u_,v_]:=Sin[w/2]Sin[v}+Cos[u/2]Sin[2v] 


X[a_][u_,v_]:={X1[a][u,v],X2[a][u,v],X3[a][u,v]} 


(* Plot the Klein bottle for a=1 *) 


ParametricPlot3D[X[ 1 ][u,v]//Evaluate, {u,0,27}, {v,0,27} ] 
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Figure 4.13. The graph of a Klein bottle. 


At v=0, the u-coordinate curve is given by 


y=asinu, 


[zs 
ze 


a circle of radius a in the xy-plane. 


(* u-coordinate curve at v=0 *) 


X[a][u,0] 


(* Plot the u-coordinate curve at v=0 *) 


ParametricPlot3D[X[2][u,0 ]//Evaluate, {u,0,27}, {v,0,27} ] 
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Figure 4.14. The u-coordinate curve at v=0 of a Klein bottle. 


Next, we investigate the orientability of the Klein bottle. The standard 
normal vector along the u-coordinate curve at v=0 is given by 


N(u, v) | v=0 = (X,(u, v) x X(u, v)) | v=0 


So, 
N(u, 0)- (a COS U (2 cos = +sin ji 


asin u(2 cos Ë +sin 3! -a (cos = -2sin 2) 
2 2 2 2 


(* Standard normal vector along the u-coordinate curve at v=0 *) 
(* N(u,0) *) 


Cross[D[X [a][u,v |, u], D[X[a][u,v ],v]]/.v-70//Simplify 
X[a][0,0]--X [a] [27,0] 


Mathematica verified that X(0,0)=X(21,0). It means that if we travel along 
the Klein bottle via the u-coordinate circular path at v=0, the curve is 
continuous. 


Now, we compare the normal vectors at these two points, that is, N(0,0) and 
N(21,0). 


(* Compute N(0,0) *) 


Cross[D[X [a ][u,v ],u], D[X[a][u,v ],v]]/. {u->0,v->0} 


(* Compute N(21,0) *) 


Cross[D[X[a][u,v],u],D[X[a][u,v],v]]/. {u->27,v->0} 


From the results above, we get 


X(0,0)=X(2z,0), but N(0,0)=-N(2z,0). 


The sign reversal of the normal vector by traveling along a circular path 
shows that it is not continuously consistent. This implies that the surface is 
not orientable at all, it is one-sided. Therefore, the Klein bottle is a 
nonorientable surface. 


Example 4.11. Let S be a funnel-shaped surface defined by 
x^2+y^2=1 for 0<=z<=1, 

and x^2+y^2=z^2 for 1l<=z<=9. 

(a) Plot the surface. 

(b) Find the outward-pointing unit normal vectors to S. 


(c) Find the flux of F through the surface S, where F=-y i+x j+z k. 


Solution: 


(a) 


plotl=ContourPlot3D[x^2+y^2==1//Evaluate, {x,-2,2}, {y,-2,2}, 
{z,0,1},Mesh->None,ContourStyle->Opacity[0.5],AxesLabel-> 


{"x" "y" "z" } ]; 


plot2=ContourPlot3 D[x*2+y*2==z*2//Evaluate, {x,-2,2}, {y,-2,2}, 
{z,1,9},Mesh->None,ContourStyle->Opacity[0.5]]; 


Show[plot1,plot2,PlotRange->All] 


2 


2 


Figure 4.15. The graph of a funnel-shaped surface. 


(b) 

The funnel-shaped surface S consists of two piecewise smooth surfaces: 
1. 91: x^2*y^2-1 for 0<=z<=1. 

The parametric equation for this part of the surface: 


X4 (u, v) 2 (cos u, sinu, v) 


, O<=u<=2n, 0<=v<=1. 
The normal vector is given by 
N1 = (Xi), * (X2), , 

N; = (cosu, sinu, O). 


Note that this vector is already pointing outwardly. Thus, the outward- 
pointing unit normal vector becomes 


u4 = (cos u, sinu, 0) | 


Clear[X1,u,v] 


X1fu_,v_]:>{Cos[u],Sinfu],v} 


(* The normal vector of X1: N1 *) 


Cross[D[X1[u,v],u],D[X1[u,v],v]]//Simplify 


(* The unit normal vector of X1: ul *) 


Cross[D[X1[u,v],u],D[X1[u,v],v]]/Sqrt[Cross[D[X1[u,v],u],D[X1[u,v],v]].C 
ross[D[X1[u,v],u],D[X1[u,v],v]]]//Simplify 


2. 92: x^2-ty^2—z^2 for 1«—z«-9. 
The parametric equation for this part of the surface: 


X»(u, v) = (u cos v, usin v, u) 


, 1«-u«-9, 0<=v<=27. 
The normal vector is given by 
N2 = (X2), x (X2), , 


N» = (Cu cos v, -u sin v, u) 


Since this vector is pointing inwardly, we multiply it with -1 to achieve the 
outward-pointing normal vector. Thus, 


-N> = (u cos v, u sin v, -u) 


Hence, the outward-pointing unit normal vector is 


U> = 7 (cos v, sin v, -1) 


Clear[X2,u,v] 


X2[u_,v_]:={u Cos[v],u Sin[v],u} 


(* The normal vector of X2: N2 *) 


Cross[D[X2[u,v],u],D[X2[u,v],v]]//Simplify 


(* The outward-pointing unit normal vector of X2: u2 *) 


(Cross[D[X2 [u,v],u], D[X2[u,v].v]]/Sqrt[Cross[D [X2 [u,v ],u], D[ X2 [u,v],v ]]. 
Cross[D[XO[u,v |u], D[X2[u,v ],v]] //Simplify//PowerExpand 


(c) 


Clear[F,x,y,z] 


F [x_,y_,z_] = {-y,X,Z} 


We use VectorPlot3D command to generate a three-dimensional vector 
plot of F. 


plot3=VectorPlot3 D[F[x,y,z]//Evaluate, {x,-2,2}, {y,-2,2}, 
{z,0,3},VectorScale->{Small, 0.3, Automatic] ] 
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Figure 4.16. A 3D vector plot of the vector field F=-y itx j+z k. 


Show/[plot1,plot2,plot3,PlotRange->All] 


Figure 4.17. Vector plot of the vector field that is coming in and out of the 
surface. 


To find the flux of F through the surface S, we compute the integral 
JJ;F “dS , where F=-y i*x j+z k. 


The integral is divided into two parts according to two piecewise smooth 
surfaces: 


ILE: dS= [fF dS; + {fF : d$, 


= | Jp, FX) : N4(u, v)dudv+ JJ, F(X2) -(-1) No(u, v) dudv 
= [27 ft (Csin u, cos u, v): (cos u, sinu, 0) dudv 

+ ja 2n(-usin V, UCOSV, u): (ucosv, usin v, -u)dudv 
_ _ 14567 
TM 


(* Compute the vector surface integral *) 


Integrate[ {-Sin[u],Cos[u],v}.{Cos[u],Sin[u],0}, {u,0,27}, 
{v,0,1}]+Integrate[ {-u Sin[v],u Cos[v],u}.{u Cos[v],u Sin[v],-u}, {u,1,9}, 
1v,0,211] 


If F represents the velocity vector field of a fluid, then the flux may be 
considered as the rate of fluid transported across S per unit time. Since 
it is negative value, there is more fluid flowing in than flowing out of S. 


Let us compute the vector surface integral using the vectorSurflIntegral 
module and at the same time verifying our result: 


vectorSurfIntegral[X 1 ,F, {0,27}, (0,11 | -vectorSurfIntegral[X2,F, {1,9}, 
{0,27} 7 1] 


Notice that we have assigned -1 to the sign argument in the 
vectorSurfIntegral module above for X2 so that to reverse the normal 
vector to point away from the surface. 


Example 4.12. The electric field due to a point charge located in R? is 


E-kt 
r° „where k is constant and r^2-x^2*y^24z^2. Find the flux of E 


through the surface S, a disk of radius 2 parallel to the xy-plane with 
center at (0,0,3). 


Solution: 


The parametric equation of the surface S (Figure 4.18) can be given in 
cylindrical coordinates by 


X(u,v)=(u cos v,u sin v,3), 


where 0<=u<=2, 0<=v<=2n. 


Clear[X,u,v] 


X[u_,v_]:={u Cos[v],u Sin[v],3} 


plot1=ParametricPlot3 D[X[u,v]//Evaluate, {u,0,2}, {v,0,27} ] 


TT 


Figure 4.18. The graph of a disk of radius 2 parallel to the xy-plane with 
center (0,0,3) is parametrized as X(u,v)=(u cos v,u sin v,3), where 0<=u<=2, 
0<=v<=2n. 


Is 


, E-K* 
The electric field r^ can be written as 


N 


i+yj+zk 
Bug a IM 
r? (x2 +y? +2” 
Ej 


e,- xi+yj+zk 


d 2 .2 
where x+y? ez f 


In cylindrical coordinates and observing that z=3, the electric field becomes 


= ucosvit+usinvj+3k _, ucosvi+usinvj+3k 
[(u cos v)? + (usin v^ 97? (9+ 2)” 


The electric field can be depicted using VectorPlot3D command (see 
Figure 4.19). 


Clear[Efield,k,x,y,z] 


Efield[x ,y ,z ]-k/(x^2*y^24z^2) (3/2) {x,y,z} 


plot2=VectorPlot3 D[Efield[x,y,z]/.k->1//Evaluate, {x,-2,2}, {y,-2,2}, 
{z,0,6},VectorScale->{Small, 0.3, Automatic] ] 


Figure 4.19. A 3D vector plot of the electric field E=(x ity j+z k)/(x^2 + y^2 
a2 y 9). 


Show/[plot1,plot2] 


Figure 4.20. The electric field E=(x ity j+z k)/(x^2 + y^2 + z^2)^(3/2) 
across the disk of radius 2 centered at (0,0,3). 


We find the flux of E that passes through the disk: 
X(u,v)=(u cos v,u sin v3), O<=u<=2, 0<=v<=21. 
by using equation (4.6): 

JRE- dS= [ER - Nu, v)dudv 


where the region D is a disk of radius 2 on the xy-plane with center at the 
origin. 


X, =0,X=(cosv, sin v, 0) 


? 


X, 20, X- (-usinv, ucosv, 0) 
N(u, v) =X, x X, - (0, 0, u) 


Notice that the normal vector is pointing away from the surface, that is, 
pointing upward in positive z-direction. 


Cross[ {Cos[v],Sin[v],0}, (-u Sin[v],u Cos[v],0} |//Simplify 


IKE ask (0-0. dudy 


_ 2 ra2m u 
= 3K pare a lov dudv 


-(2- ==) wk 


3 k Integrate[u/(9--u^2)^(3/2), {u,0,2}, {v,0,27} ] 
Let us compute the flux of E using the vectorSurflIntegral module: 


vectorSurfIntegral[ X,Efield, {0,2}, {0,27} ] 


4.3 Curvatures of Surfaces 


In this section we will investigate curvatures of surfaces. We may think 
of the curvatures of a surface as the analogs of the curvature of a curve. 
However, since surfaces are parametrically two-dimensional, there are 
various forms of surface curvature as well as increased complexity in 
dealing with the curvatures of a surface than the curvature of a curve. 
All of these various forms of curvatures arise from differentiating the 
normal vector function defined at each point on the surface. Since a 
surface is parametrically two-dimensional, we can differentiate the 
normal vector in any direction specified by a tangent vector. This leads 
us to the concept of shape operator. 


Definition 4.3 


l 3 " 
Let X: (u, v) >R” pe a regular surface, and let Z(t) = X(r(f)) pe a curve 
on the surface having T as tangent vector at point Po = X(uo, Vo) . For a 


surface normal N to S at point Po , the shape operator is defined as the 
minus of the derivative of N in the direction of T: 


(4.7) 


Sp,(T) = -Dr N - -£ N(a(t)o 


We choose a curve parametrized by t on the surface: 


a(t) = X(r(t)) . 


such that the initial conditions of the curve satisfies 


r(0) = (uo, vo) , a(0) = X(r(0)) = Po a" (0) 7 T 


Sp, is an operator follows from the fact that it converts one tangent vector 
into another tangent vector. This can be shown by taking the derivative of 
N - N at point Po. 


Since (N © N)g, = constant 
d 
dt (N z N)p, = 0 


2N(Po) ` £ N(a(t)i-o = 0 


’ 


N(Po) : Se (T) 20. 


Since Spo(T) is perpendicular to N(Po) , it lies in the tangent plane at Po 


just as T does. Hence, the operator Spo takes one tangent vector into 
another tangent vector. 


If the derivative of N is in the direction of tangent vector X, , We obtain 
the shape operator in this case 


S(X,) = -Dx, N - - 2- N(X(u, vo))e, = -Nu 


? 


where Nu is the derivative of the normal vector N(u,v) along any u- 
parameter curve. 


Similarly, 


S(Xy) = -Dx, N - - N(X(Uo, v))e, = -Nv 


? 


where Nv is the derivative of the normal vector N(u,v) along any v- 
parameter curve.. 


Furthermore, the following lemma shows that the shape operator is linear. 


. 3 
Lemma 4.4. At each point P of a regular surface X:(u,v)>R ‚the shape 
operator is linear. That is, it satisfies 


(4.8) 

Sp(a T1 + b T2) = a Se(T1) + b Se(T2) 
a,beR. 

Proof. 

That SP is linear follows from Definition 4.3. 

Since 


Se,(T) = -Dr N - - £ N(a(f))i-o 


Se,(a Tı + b T2) = -a É N«(a(t))i-o - b © N»(a(t)ico 
=a Sg (T1) + b Sp,(T2), 


where T1 and T2 are two tangent vectors that lie on the tangent plane at the 
point Po ; and N1 and N2 are their respective normal vectors. 


Since the point Po is arbitrary, for any point P on the surface we write 
Sp(a T4 -b T2) =a Sp(T}) +b Sp(T2) 


a,beR. 


If T1 and T2 are linearly independent vectors that span the tangent plane, 
then from linear algebra we can write both Sp(T}) and Sp(T2) as a linear 
combination of T1 and T2 : 


Sp(T1) = a T4 + BT2. 
Sp(T2) = y T4 +ô T2 ; where a, B, Y, Öe R- 
Hence, the matrix representation of the shape operator S is given by 


«(2 


Note here that we have dropped the P sign for convenience, however, it is to 
be understood that the shape operator is computed at points on the surface. 


The following theorem stated without proof, provides means to compute the 
shape operator in matrix representation. Readers who are interested in the 
proof may consult books on differential geometry. 


E 3 
Theorem 4.5. Let X: (U, V) > R^ pe a regular surface. Then the shape 
operator S of X with respect to the basis UG, Xv} is given by 


eG-fF fG-gF 
s-| ES-F EG-F? 
fE-eF gE-fF 


(4.9) EG-F* EG-F*/, 
where 
EzX,X, 
| EEX Ke XX 
CP AM e 


f=-U, -Xu = U- Xuv -U-X,, - -U,-X,, 


| e=-U, X,=U Xu, 
g=-U, X, -U- X,,, 


and U is the unit normal vector to X. 


E, F, and G are called the coefficients of the first fundamental form of 
X, whereas e, f, and g are the coefficients of the second fundamental 
form of X. 


From Theorem 4.5 we notice that 


f --U, X72 -U,- Xy. 


At any point P on the surface, this can also be written as 


-N, "X,=-Nu Xy. 


By Definition 4.3, this implies that 
(4.10) S(Xy) - X, = S(X,) X, R 


for any two tangent vectors Xu and Xv at any point P on the surface. 


By Lemma 4.4, Xu and Xv span the tangent plane and is linear, so we can 
always choose two tangent vectors V1 and V2 such that they are 


orthonormal to each other to form a new basis {Vy ; V2} : 


Thus, the matrix representation of S with respect to this choice of basis 
becomes 


S(V1) = avı + BV2 | 

S(v)-2YV1*ÓV2. where €, B, Y, OER, 
It follows that 

S(vi): V22B and = S(V2) Vic Y. 

But by equation (4.10): 

S(V2) © v4- S(v4): v2. 

Therefore, B 7 Y . 


This implies that S with respect to this new basis is represented by a 
symmetric matrix: 


s-(5 5). 


Using the fact from linear algebra that any symmetric matrix is always 
diagonalizable, thus, given a symmetric matrix 


s-(5 5) 


we can choose an orthogonal matrix, such as a rotation by an angle 0 


= ad 


-sin 9 cos 0 
so that 
T -1_[k; 0 
S'=ASA zr k) 


In the new basis {T1; T2} , the shape operator is a diagonal matrix. Thus 


S(T) = kı T4 , S(T2)= k2 T2 . 


ka , and k2 are called the eigenvalues of S, and T: and T2 are the 
corresponding eigenvectors. 


kı , and k2 are also called the principal curvatures of X at point P. 


T: and T2 are perpendicular and the directions are called the principal 

vectors. The corresponding directions are called principal directions. A 

principal curve on X is a curve whose trace lies on X and whose tangent 
vector is everywhere principal. 


Using Eigenvalues command from Mathematica, it can be shown that 
for a symmetric matrix: 


s-(5 y). 


the eigenvalues of S are given by 


ka, k2 = jla» ytN (a-y)? «4B? | 


Clear[S,0,ß,y] 


S=1{a,ß},1B»y} 3; 
Eigenvalues[S] 


Definition 4.6. Let T be a unit tangent vector to a regular surface 


P 3 
X: (u, V) >R” at point P. Then the normal curvature of X in the 
direction T is given by 


(41) — K(D-S(T. T, 
More generally, if v is any nonzero tangent vector to X at P, we have 


S(v):v 
k(v) = == 
(4.12) v) Ivii? 


We call k(v) the normal curvature of X in the direction v. 


Consider again the orthonormal basis {T1, T2} that spans the tangent 
space at point P. Any unit tangent vector T can be expressed in terms of 
T: and T2 as 


T=aTı+bT;, 


Since T is unit tangent vector 


ITI =1 =a? +b? 


Then by Definition 4.6 the normal curvature of X in the direction T is 
given by 


k(T)= S(T): T. 


k(T) = S(a T4 + b T2) - (a T4 +b T2) 
= [a S(T4) +b S(T2)] - (a T4 + b T2) 
=(akı T4 +b k T2) $ (a T4 +b T2) 


Therefore, k(T) = a ky + b? ko. 


Since the normal curvature of X in any direction T depends on the 
values of K1 and ‘2 , this implies if ky 2 ka , the normal curvature is 
largest in the principal direction T: and conversely if ka s k2 the 
normal curvature is smallest in the principal direction T. So, the 
maximum and minimum values of the normal curvature k of X at P are 
called the principal curvatures of X at P. 


Recall from Section 2.1.2, the curvature of a unit-speed curve is 
K(s) «IL T" (S) I. 
where T is the unit tangent vector field on the space curve r. 


It turns out that there 1s a relation between the normal curvature of a regular 
surface with the curvature of a space curve which is stated in the following 
lemma: 


: 3 
Lemma 4.7. Let X: (U, V) > R^ pe a regular surface and let v be a unit 
tangent vector to X at P. Let r be a unit-speed curve on X with r(0)=P 
and r'(0)=v. Then 


(4.13) k(v) = «(0)cos 8. 


where k(0) denotes the curvature of the curve r at 0, and 0 is the angle 
between the normal vector N(0) of r and the surface normal vector U at 
P. 


Proof. 


By Definition 4.6 the normal curvature of X in the direction v is given 
by 


k(v) 2 S(v): v. 


Since r is a curve on X, then its tangent vector v is perpendicular to U, 
that is 


v: Uz0, 

Differentiating, we get 
vi-U+v-U'=0. 

By Definition 4.3: 
U'--S(v) 

SO v'- U =v; S({v). 
Thus, 

k(v)-v'-U. 


By Theorem 2.3, equation (2.14) we get 


k(v) = k(O) N(O) U 
Hence, 
k(v) = k(0) cos 8 . 


where 0 is the angle between the normal vector N(0) of r and the 
surface normal vector U at P. 


Besides normal curvatures and principal curvatures, there are two more 
definitions of the curvatures of the surface. These are defined in Definition 
4.8. 


: 3 
Definition 4.8. Let X: (U, v) > R^ pe a regular surface. The Gaussian 
curvature K and the mean curvature H of X at point P are defined by 


(414) K(P)-det(s(p) HP) - 5 tr(S(P)) 


Definition 4.8 implies that the Gaussian curvature K is the product of the 
principal curvatures K+ and K2 , and the mean curvature H is their average. 


We say that X is a minimal surface if H vanishes and flat if K vanishes. 


: 3 
Theorem 4.9. Let X: (U, V) > R pea regular surface. The Gaussian 
curvature K and mean curvature H of X are given by the formulas 


-eg-i^ 
(4.15) EG-F?, 


€! -2fFt*gE 
7 2 
(4.16) 2(E6-F?) 


where e, f, g are the coefficients of the second fundamental form relative to 
X, and E, F, G are the coefficients of the first fundamental form. 


Proof. 


From equation (4.9), we have 


eG-fF fG-gF 
EG-F* EG-F* 
fE-eF gE-fF 
EG-F* EG-F? 


o 
II 


Using equation (4.14), we obtain 


Ee moe fF)(gE-fF)-(f G-gF)(f E-eF)] 
_ og-f 
" EG-F?, 
and 
gom a fF+gE-fF] 
~ eG-2IF+g4E 
.. 2(Ec-F?) 


Of all definition of curvatures, the Gaussian curvature is the most important 
notion about the curvature of a surface. It also leads us to distinguish four 


kinds of points on a surface. 


a 3 
Definition 4.10. Let X: (u, V) 3 R^ bea regular surface. Let K be the 
Gaussian curvature ofX. 


- Points are called elliptic if K>0 (equivalently, k1 and K2 have the same 
sign) 


- Points are called hyperbolic if K<0 (equivalently, k1 and ‘2 have 
opposite signs) 


- Points are called parabolic if K=0, but S + 0 (equivalently, exactly one 
of K1 and %2 is zero) 


- Points are called planar if K=0 and S=0 (equivalently, kı=k=0) 


Before we use Mathematica to calculate the shape operator of a surface. We 
shall need to define several modules in the following: 


(* Define length of a vector *) 


vectorLength[v_]:=Sqrt[Simplify[v.v]] 


(* Define unit normal vector of a surface *) 
unitnormal[X ]|[u ,v ]:- 
Module[ {U,V,Xu,Xv}, 


Xu=D[X[U,V],U]; 


Xv=D[X[U,V],V]; 
Nx=Cross[Xu,Xv/. {U->u,V->v}; 
Simplify[Nx/vectorLength[Nx]] 


] 


The firstForm module compute the coefficients of the first fundamental 
form and arrange them in an array. Notice that we use the symbols ee, 
ff, and gg to denote E, F, and G, respectively. It is meant to avoid using 
the capital E which is a reserved symbol in Mathematica. 


(* Compute the coefficients of the first fundamental form *) 
firstForm[X ][u ,v ]:- 

Module[ {Xu,Xv,U,V}, 

Xu-D[X[U, V],U]; 

Xv-D[X[U, V], V]; 

ee-Xu.Xu/. {U->u, V->v}//Simplify; 

ff=Xu.Xv/. {U->u, V->v}//Simplify; 
ge=Xv.Xv/.{U->u,V->v}//Simplify; 

(ree, fF}, (figg; j 


] 


In secondForm module we compute the coefficients of the second 
fundamental form e, f, and g, and arrange the results in an array. In 
the module we use the symbols eee, fff, and ggg to denote e, f, and g, 
respectively. 


(* Compute the coefficients of the second fundamental form *) 
secondForm[X_][u_,v_]:= 

Module[ {Xuu,Xuv,Xvv,U,V}, 
Nx=unitnormal|[X][u,v]; 
Xuu=D[X[U,V],U,U}]; 
Xuv=D[X[U,V],U,V]; 
Xvv-D[X[U, V], V, V]; 

eee-Xuu.Nx/. {U->u, V->v}//Simplify; 
fff-Xuv.Nx/. {U->u, V->v}//Simplify; 
ggg-Xvv.Nx/. {U->u, V->v}//Simplify; 
(ieee, ff}, (fi ges j 


] 


Using Theorem 4.5 we define the shapeOperator module to compute 
the shape operator of the surface in matrix form: 


(* Compute the shape operator of the surface *) 


shapeOperator[X_|[u_,v_]:= 
Module {}, 
Clear[ee,ff,gg,cee,fff,ggg]; 
secondForm[X ][u,v]; 


(1/Det[firstForm[X ][u,v]])* { (eee*gg-fff* ff,fff*ge-geg" ffi, {fff*ee- 
eee*ff,ggg*ee-fff* ff} 1//Simplify 


] 


Equation (4.15) and (4.16) in Theorem 4.9 are used to compute the 
Gaussian curvature and the mean curvature of a surface, respectively. 
The Gaussian curvature can be written as the division of the 
determinant of the first fundamental form matrix over the second 
fundamental form matrix which is implemented in gaussCurv module 
below: 


(* Compute the Gaussian curvature *) 
gaussCurv[X ][u ,v [:- 

Module[ {f1,f2}, 
f1:=firstForm[X][u,v]; 

f2:= secondForm[X][u,v]; 
Simplify[Det[f2 |/Det[f1 || 


] 


(* Compute the mean curvature *) 

meanCurv[X ][u ,v ]:- 

Module[ {fl}, 

Clearl[ee,ff,gg,cee,fff,ggg]; 
f1:=firstForm[X][u,v]; 

secondForm[X ][u,v]; 

Simplify[(eee gg - 2 fff ff + ggg ee)/(2Det[f1])] 


] 


Using the fact that the principal curvatures are the eigenvalues of the 
shape operator, we define a function principalCurvs to compute the 
principal curvatures of a surface: 


(* Compute the principle curvatures: Subscript[k, 1] and Subscript[k, 2] *) 


principalCurvs[X ][u ,v ]:-Eigenvalues[shapeOperator[X |[u,v ] /Simplify 


Here are some examples: 


Example 4.13. Consider a saddle surface defined by the function z-x y. 


(a) Plot the surface. 


(b) Find the shape operator. 


(c) Compute the principal curvatures. 


(d) Compute the Gaussian curvature and the mean curvature. 


Solution: 

(a) 

The saddle surface can be parametrized as 
X(u,v)=(u,v,u v), 


where u=x, v=y. 


Clear[X] 


X[u_,v_]:={u,v,u vj 


ParametricPlot3D[X[u,v]//Evaluate, {u,-2,2}, {v,-2,2},AxesLabel-> 
{"x","y","z"} BoxRatios->{1,1,1}] 


Figure 4.21. The graph of the saddle surface z=x y. 


(b) 


shapeOperator[X ][u,v]//MatrixForm 


The shape operator: 


uv 1+2 
(i +u? + v2)9? (1+ u2 + v2)92 
= 1+v2 


TEES So: e a PP 
(1 "P ^ da ( +u? + v2)” 


Note that the shape operator matrix is not symmetric. Because in general 
Xu is not perpendicular to X, . 


(c) 
principalCurvs[X][u,v] 


The principal curvatures: 


(1 Pi ut " Vr T 


(1 +u? v 
(d) 
gaussCurv[X |[u,v] 


meanCurv[X ][u,v] 


The mean curvature: 


c—— ee 
im (1+u2 op? 


As can be seen from the formula, the Gaussian curvature of the saddle is 
always negative: 


A= <0 


1 
1+" + vy 
Therefore, points on the surface are hyperbolic by Definition 4.10. 
By transforming u->-u and v->-v, the Gaussian curvature is unchanged. So, 
it has reflection symmetry with respect to the origin. By transforming to 


polar coordinates, it is also invariant with respect to rotations about the z- 
axis. 


Example 4.14. The parametric form of a torus is given by 
torus[a,b,c](u,v)=((atb cos v)cos u,(atb cos v)sin u,c sin v), 
where U, V €[0, 270) | 

(a) Plot the surface. 

(b) Find the shape operator. 

(c) Compute the principal curvatures. 

(d) Compute the Gaussian curvature and the mean curvature. 


(e) Show parts of the torus where the Gaussian curvature is negative, zero, 
and positive. 


Solution: 


(a) 


Clear[torus,a,b,c] 


torus[a_,b_,c_ |[u_,v_]:={(atb Cos[v])Cos[u],(at+b Cos[v])Sin[u],c Sin[v]} 


We plot a torus with a=2, b=1, c=1: 


ParametricPlot3D[torus[2, 1,1 ][u,v |//Evaluate, {u,0,27}, {v,0,27} ] 


Figure 4.22. The graph of a torus[2, 1,1]. 


(b) 


shapeOperator[torus[a,b,c]][u,v]//MatrixForm 


The shape operator of the torus: 


~—__v2ccosy —— 000 0 
S=- (a+bcos vy? [p^ «c? «(-5? c?) cos2 v] 
0 _____2V2be(a+beosv)> 
[-(e«b cos v)? {-b?-c?+(b?-c?) cos 2 v} 3/2 
(c) 


principalCurvs[torus[a,b,c]][u,v] 


The principal curvatures can be read off from the diagonalized shape 
operator: 


kin 22 belerboev)_ __ 
i [e + bcos v)? (P +074 (-6? + c? cos 2 JP s 


V2 CcosV 
k2 


(a+ bcos v)? (o? +074 (-6? - c? cos2 v) 


(d) 


gaussCurv[torus[a,b,c]][u,v] 


For specific values of a, b, and c; the sign of the Gaussian curvature is 
dependent on the v-parameter only: 


- 4bc^ cosv 
(a4 bcos v) [p? +074 (5 * e^] cos 2 vr 


meanCurv[torus|[a,b,c]][u.v | 


The mean curvature of the torus: 
H - - ((c (a * b cos vy? [4 a b+ (5 b? +3 c°) cos v + (-b? + c?) cos 3 v] / 


(2 NE) [(a E vy (b? nom (-b? + c?) cos 2 vr?) 


(e) 


By fixing the v-parameter, the following graph shows several u-coordinate 
curves on the torus[2,1,1]: 


ParametricPlot3D[Table[torus[2,1 ,1 ][u,j], {j,0,27, 1/2} ]//Evaluate, 
{u,0,27} ,PlotStyle->{ (Blue, AbsoluteThickness[2 ]3 | 


N o 


rw / 


I] 


> . 


Figure 4.23. Several u-coordinate curves on the torus[2,1,1] 


As an example, consider the torus with a=2, b=1, c=1, where 
u, V € [0, 270) | The Gaussian curvature for this torus becomes, 


K=(cos v)/(2 + cos v). 


gaussCurv[torus[2,1,1]][u,v] 


Plotting the Gaussian curvature with respect to v, we obtain 


Plot[gaussCurv[torus[2,1,1 | |[u,v |//Evaluate, {v,0,27} ,Ticks-> 1 {0,2/2,7,3/2 
1,21) , Automatic}, AxesLabel->{"v","K"}] 


Figure 4.24. The graph of the Gaussian curvature of the torus[2, 1,1]. 


Points on the surface is called elliptic if the Gaussian curvature is positive, 
that is, if 


(cos v)/(2 + cos v)>0. 
This occurs when 


0<=v<n/2 and (32)/2<=v<2n. 


plot1=ParametricPlot3 D[Table[torus[2, 1,1 ][u,j], {j,0,7/2, 1/2} ]//Evaluate, 
{u,0,27} ‚PlotStyle->{{Blue,AbsoluteThickness[2]}}] 


plot2-ParametricPlot3D[Table[torus[2,1,1 ][u,j |, (j. 
(32)/2,27, 1/2} ]//Evaluate, {u,0,27} ,PlotStyle-> 
{{Blue,AbsoluteThickness[2]} }] 


(S ™ 


w / 


Yy j 


rw / 


Ut» 
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Figure 4.25. Some u-coordinate curves where v={0,1/2,1,3/2} (top) and v= 
{(32)/2,(1+32)/2,(2+32)/2,(3+32)/2} (bottom) 


So, combining the last two graphs we have elliptic points lie on these 
curves: 


Show [plot1,plot2,PlotRange->All] 


I] 


> 


Figure 4.26. The graph of u-coordinate curves where points are elliptic by 
fixing v, where v={0,1/2,1,3/2,(32)/2,(1+32)/2,(2+32)/2,(3+32))/2} 


Points on the surface is called hyperbolic if the Gaussian curvature is 
negative, that is, if 


(cos v)/(2+cos v)<0. 
This occurs when 


n/2 


The following graph shows hyperbolic points that lie on the curves. 


plot3-ParametricPlot3D[Table[torus[2,1,1 ][u,j |, (].1/2,(3x)/2] |//Evaluate, 
{u,0,27} ,PlotStyle->{ (Green, AbsoluteThickness[2]) }] 


y ^? 


E! 


Figure 4.27. The graph of u-coordinate curves where points are hyperbolic. 
The shape operator of the torus[2,1,1] can be computed and found to be 


" cos V 0 | 
S=- 24cosv 
0 -1 


shapeOperator[torus[2,1,1]][u,v |//Simplify//PowerExpand//MatrixForm 


Points on the surface is called parabolic if the Gaussian curvature vanishes 
and the shape operator is nonzero. This occurs when v—7/2 and v=(3n)/2. 


There are only two curves that lie on the torus[2,1,1] which are parabolic as 
is shown in the following graph: 


plotd-ParametricPlot3D[Table[torus[2,1,1 ][u,j |, {J, 11/2,(31)/2] } |//Evaluate, 
{u,0,27} ,PlotStyle->{ (Red, AbsoluteThickness[2]? ) | 


Y 
ads 


Figure 4.28. The graph of u-coordinate curves where points are parabolic. 


Finally the figure below shows curves on the torus[2,1,1] where points are 
elliptic (blue lines), hyperbolic (green lines), and parabolic (red lines). 


Show/[plot1,plot2,plot3,plot4,PlotRange->All] 


Figure 4.29. The graph of u-coordinate curves by fixing v, where points are 
elliptic (blue lines), hyperbolic (green lines), and parabolic (red lines). 


4.4 Some Classifications of Surfaces 


4.4.1 Monge Patch 


A Monge patch on surface X is defined by the parametrization of the 
form 


X(u,v)-(u.v.o(u,v)), 


provided @ is continuous. 


Thus, in general a regular surface defined by z=@(x,y) is a Monge patch. It 
is a graph of functions of two variables. 


The surface defined in Example 4.13 is an example of a Monge patch. 


The following example gives another famous Monge patch called the 
monkey saddle. 


Example 4.15. The monkey saddle is a surface defined by the function 
Z—x^3-3x y^2. 


(a) Plot the surface. 
(b) Find the shape operator. 
(c) Compute the principal curvatures. 


(d) Compute the Gaussian curvature and the mean curvature. 


Solution: 


(a) 


(* The parametric equation of a monkey saddle *) 
Clear[monkeySaddle] 


monkeySaddle[u_,v_]:={u,v,u%3-3u v^2j 


ParametricPlot3D[monkeySaddle[u,v |//Evaluate, {u,-2,2}, 
{v,-2,2},AxesLabel->{"x","y","z"},BoxRatios->{1,1,1}] 


Figure 4.30. The graph of the monkey saddle z-x^3-3x y^2. 


(b) 


shapeOperator[monkeySaddle][u,v |//MatrixForm 


The shape operator of the monkey saddle: 


6 (u+ 184? v? + 18u v^) 6(v + 18u^ v + 184? v?) 
= (1+9u4+ 1847 v? 49 v4)9? (i +9u4+18u2 v? «ov^? 
i 6v(1-9u4 «9v^) 6(u+9u° -9uv^) 
(i +9u4 «18? v? +9 v4)? (i +9u4 «182 v? «ov^ y? 
(c) 


principalCurvs[monkeySaddle][u,v] 


(d) 


gaussCurv[monkeySaddle][u,v] 


meanCurv[monkeySaddle][u,v] 


The principal curvatures of the monkey saddle looks complicated. However, 
the Gaussian curvature and mean curvature of the monkey saddle are rather 
simple, given by 
36 (u? + v?) 
(0 (rou ete v? ov^ 


27 (u? - 2u? v? -3uv*) 
H=—-— 
(1 +9u4+18u v? «ovy? 


Clearly, points on the monkey saddle are hyperbolic. 


Note that there are symmetries of the Gaussian curvature for the monkey 
saddle: 


1. The Gaussian curvature is preserved under interchanging of parameters, 
that is u->v, v->u. 


2. The Gaussian curvature is preserved under reflection, that is, 
transformation such that u->-u and v->-v. 


3. We may rewrite the Gaussian curvature in polar coordinates as 


"EZ ae 
(1« 97^ 


Thus, the Gaussian curvature is invariant with respect to rotations about the 
Z-AXIS. 


gaussCurv[monkeySaddle][u,v]/. {u->r Cos[0],v->r Sin[0] //Simplify 


The first and the second fundamental form of the Monge patch, as well as 
the Gaussian curvature and mean curvatures can be computed straight 
forwardly and the results are stated in the following lemma: 


Lemma 4.11. For a Monge patch X:(u,v)->(u,v,@(u,v)), we have 


4.17 E=1+Qy F = Qu Ø G=1+9/ 
(4.17) | | | 
e- ———Q9uu o. f- 9uv g- 9v vy 
(4.18) (1 + Qu^ + "EE | (1 ate "EE | (1 ER 92)" | 
— Puu vv 9u v? 
(4.19) («e o 


TM (1 * 9y^) 9uu - 2 9u 9y 9u v * (1 + Qu^) 9vv 
5 2(1 + 9u* * o2 P? 


? 


where subscripts denote partial derivatives. 
Proof. 


It is quite tedious to prove these formulas by hands, so we employ 
Mathematica to do the tasks. 


Clear[X,o] 


X[u_,v_]:={u,v,o[u,v]} 
firstForm[X][u,v]//MatrixForm 


Q is a general function of u and v, so Mathematica use superscripts to 


denote partial derivatives. For example: ? ' “I denotes partial 
derivative of @ with respect to the first parameter which in this case is u. 


. Nu v] l a 
Likewise, ? : ^] denotes partial derivative of o with respect to the 
second parameter which in this case is v. 


This proves equation (4.17): 


(41) E=1+Q@°,  F-9,9y,  Gzi«o. 
secondForm[X ][u,v]//MatrixForm 


This proves equation (4.18): 


os 9uu f - Puv g- 9yy 
(4. 1 8) (1 + Pu” + g)” : (1 + Qu" * 9/7)" : (1 + Pu” + gv?) 
(2, 0) (1,1 (0, 2 l 
where 9 ^ "u, v]. 9 tu, v] ,and 9 tu, v] denote second partial 
derivatives for """ au, quy = Svou ‚and '"" av? , respectively. 


gaussCurv[X |[u,v] 


meanCurv[X ][u,v] 


The last two Mathematica commands prove equation (4.19) for the 
Gaussian curvature: 


_ 9uu Pv - Suv" 
= 2 
(1 * gu? + 9v?) 
? 


and the mean curvature: 


TM (1 * 9y^) Quu-29u P 9 y * (1 * Qu’) vv 


2 ( + Qu” + e^? 


b 


respectively. 


4.4.2 Quadric Surface 


A quadric surface is a surface determined by a quadratic equation in x, 


y, and z. 


The unit sphere centered at the origin that satisfies the quadratic equation: 


x^2+y^2+z^2=], 


is an example of a quadric surface. 


Example 4.16. The parametric equation of a unit sphere centered at the 
origin is given by 


X(u,v)=(cos u sin v, sin u sin v, cos v), 
u e[0, 27] ve[0, m], 
where u is called the longitude, v the colatitude. 


(a) Show that the parametric equation satisfies the quadratic equation 
x^2+y^2+z^2=1. 


(b) Plot the surface. 
(c) Find the shape operator. 
(d) Compute the principal curvatures. 


(e) Compute the Gaussian curvature and the mean curvature. 


Solution: 


(a) 


Clear[x,y,z, X | 
x=Cos[u] Sin[v]; 
y=Sin[u] Sin[v]; 
z—Cos|v]; 


X[u_,v_]:={Cos[u] Sin[v], Sin[u] Sin[v],Cos[v]} 


x^2ty^2tz^2—]//Simplify 


Mathematica verified that the parametric equation satisfies the equation 
x ry rz 21. 


(b) 


ParametricPlot3D[X [u,v], {u,0,27}, {v,0,7} ] 


Figure 4.31. The graph of the unit sphere centered at origin 


(c) 
shapeOperator[X ][u,v ]//PowerExpand//MatrixForm 


It is not surprising that the shape operator of the unit sphere is an identity 
matix: 


s=(0 1) 


(d) 
principalCurvs[X][u,v ]//PowerExpand 


Since the shape operator is diagonalized, the principal curvatures can be 
read off from the matrix: 


kı=1 and k2=1, 


(e) 


gaussCurv[X ]|[u,v] 


The Gaussian curvature of the unit sphere is everywhere constant, K=1. 


meanCurv[X ][u,v]//PowerExpand 


The mean curvature equals the Gaussian curvature of the unit sphere: 


H-1. 


Example 4.17. A quadric surface is defined by the equation x y+x z=1. 
(a) Find the parametric equation for the surface. 

(b) Plot the surface. 

(c) Find the shape operator. 

(d) Compute the principal curvatures. 


(e) Compute the Gaussian curvature and the mean curvature. 


Solution: 


(a) 
Write u=y and v=z, then the parametric equation may be written as 


X(u,v)=(1/(u + v),u,v). 


(b) 


Clear[X,u,v] 


X[u_,v_]:={1/(u+v),u,v} 


ParametricPlot3D[X[u,v]//Evaluate, {u,-5,5}, {v,-5,5},BoxRatios->{1, 1, 1}] 


Figure 4.32. The graph of the quadric surface given by x y+x z-1. 


(c) 


shapeOperator[X][u,v]//MatrixForm 


The shape operator is given by 


P 2 (u * v) 23 
Be (11) 


(2 u^ «4i v ce v? +4uv? e v^) 1+ —— 
(u +v) 


It is interesting to note that all elements of the matrix are the same. 
However, the shape operator is undefined at u=v=0. 


(d) 


principalCurvs|[X ][u,v |//PowerExpand 


_ 4(u+v)® 
(2+u4 +4uv+6u? v? auo ^y? 


kı 


koz0. 


2 


One of the principal curvature is zero, so we expect the Gaussian curvature 
to vanish. 


(e) 


gaussCurv[X |[u,v] 


Since K=0 and S + 0 everywhere on the surface except the singular point at 
u=v=0, so points on this surface are parabolic except at u=v=0. 


meanCurv[X ][u,v] 


The mean curvature is given by 
Hs 2 (u* v) 


(2 u^ «4i v+6u" v? +4uv? e v^) 1+ —— 
(u+v) 


4.4.3 Cylindrical Surface 


A surface is called cylindrical surface if it can be parametrized in the 
form: 


X(u,v)=r(u) + v p. 


where r(u) is a plane curve and p is a fixed direction, perpendicular to 
the plane of r. 


As an example, consider a parabola curve in the xy-plane and the fixed 
(0,0,1) direction: 


r(u)=(u, u^2,0), p=(0,0, 1). 
Thus, 


X(u,v)=(u, u^2,v), 4el-2,2], ve[-1, 1]. 


Example 4.18. A parabolic cylindrical surface is given by 
X(u,v)=(u, u^2,v), U€ [2,2] verd. 

(a) Plot the surface. 

(b) Find the shape operator. 

(c) Compute the principal curvatures. 


(d) Compute the Gaussian curvature and the mean curvature. 


Solution: 


(a) 


Clear[X] 


X[u_,v_]:={u,u%2,v} 


ParametricPlot3D[X[u,v]//Evaluate, {u,-2,2}, {v,-1,1} ] 


Figure 4.33. The graph of the cylindrical surface X(u,v)=(u, u^2,v) 


(b) 


shapeOperator[X ][u,v]//MatrixForm 


The shape operator is given by 


«rm 


0 0/. 


(c) 


principalCurvs[X][u,v] 


The principal curvatures are given by 


"—-— 2 
kı = (1+4,2)9 ko20. 


(d) 
gaussCurv|X |[u,v] 


It is not surprising that points on the surface is everywhere paraboloid, as 
confirmed by the fact that K-0 and S #0. 


meanCurv[X ][u,v] 


The mean curvature is given by 


EN, PR 
Hm (1 «4,2? 


4.4.4 Ruled Surface 


A ruled surface is a surface that can be swept out by moving a line in 
space. It therefore has a parameterization of the form: 


X(u,v)=r(u) + v p(y), 


where r is called a base curve which need not be planar and p is the 
director curve. 


Clearly, a cylindrical surface is a special case of a ruled surface in which the 
direction is fixed and perpendicular to the base curve. 


As an example, consider a base circle on the xy-plane: 
r(u)=(cos u, sin u,0), 

and the direction of a line: 

p(u)=(0,0,u). 

Thus, 

X(u,v)-r(u) + v p(u), 

X(u,v)=(cos u, sin u,0)+ v (0,0,u) 


=(cos u, sin U,V u). 


Example 4.19. A parametric equation of a ruled surface is given by 
X(u,v)=(cos u, sin u,v u). 

(a) Plot the surface. 

(b) Find the shape operator. 


(c) Compute the principal curvatures. 


(d) Compute the Gaussian curvature and the mean curvature 


Solution: 


(a) 


Clear[X] 


X[u_,v_]:={Cos[u],Sin[u],v u} 


ParametricPlot3D[X[u,v], {u,0,27}, {v,-2,2},BoxRatios->{1, 1, 1}] 


j 
h 
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Figure 4.34. The graph of the ruled surface X(u,v)=(cos u, sin u,v u) 
(b) 

shapeOperator[X][u,v]//PowerExpand//MatrixForm 

The shape operator of the ruled surface is given by 

dm | " " ; 

(c) 

principalCurvs|[X ][u,v |//PowerExpand 


The principal curvatures of the ruled surface: 


kı=0 and 27-1, 


(d) 


gaussCurv[X |[u,v] 


Since K=0 and S +0 , the points on the surface are parabolic. 
meanCurv[X ][u,v]//PowerExpand 


The mean curvature of the ruled surface: 


H=-(1/2). 
4.4.5 Surface of Revolution 


A surface of revolution is obtained by revolving a plane curve about an 
axis that does not meet the curve. 


As an example, consider the plane curve to lie in the yz-plane parametrized 
by (0,g(u),h(u)). The general rotation matrix around the z-axis is given by 


-sinv cosv 0 
0 0 1 


’ 


(sin sin v ] 


where v is the angle of rotation. 


Since the plane curve lies in the yz-plane, the parametric equation of the 
surface is given by 


sinv cosv 0 0 g(u) cos v 
X(u, «(see sin v JE -| g(u) sin v | 


o 0 1/Àh(u) h(u) 


Example 4.20. An inverted bell surface is given by the parametric equation 
X(u,v)=(u cos v,u sin v,]-E^-u^2),  O<=u<=3, 0<=v<=2n. 

(a) Plot the surface. 

(b) Find the shape operator. 

(c) Compute the principal curvatures. 


(d) Compute the Gaussian curvature and the mean curvature. 


Solution: 


(a) 


Clear[X | 


X[u_,v_]:={u Cos[v],u Sin[v],1-E^-u^2] 


ParametricPlot3D[X[u,v], {u,0,3}, {v,0,27} ,AxesLabel-> 
Ux" ,"y","z"7) BoxRatios->{1, 1, 1}] 


Figure 4.35. The graph of the inverted bell surface X(u,v)=(u cos v,u sin 
v, 1-E^-u^2). 


(b) 


shapeOperator[X ][u,v]//MatrixForm 


The shape operator of the inverted bell surface is given by 


0 
2 3/2 
(Prae? n 
S= " 
0 2e" u 
2 4,-2U^,4 
u” +4e u 
(c) 


principalCurvs[X][u,v] 


Since the shape operator in matrix form is diagonal, we can read off from 
the matrix the principal curvatures: 


e u? (2u-4w) kp = ey —— 
ky = ETT 2 
(P +46 "d ) ui? «4e? yt 
(d) 
gaussCurv[X |[u,v] 


The Gaussian curvature of the inverted bell surface is given by 


_ ser? (1-212) 


= G +42) 


Note that the Gaussian curvature depends only on the parameter u. 
meanCurv[X ][u,v] 


The mean curvature of the inverted bell surface is given by 


e (4 B 2527 u(-1 a) 
H- 


2 2 
(e Huy u? 4e?" of 


Now, let us investigate points on the surface by plotting the Gaussian 
curvature: 


Plot[gaussCurv[X ][u,v |//Evaluate, {u,-3,3},PlotRange->All,AxesLabel-> 
tu" „K" } ] 


F 


Figure 4.36. The graph of the Gaussian curvature of the inverted bell 
surface. 


Note that the Gaussian curvature is symmetric about the u-axis. 
Since the z-coordinate is defined as z=1-E^-u^2, the surface is also 


symmetric about the z-axis, which is not surprising as can be seen from the 
graph of the surface. 


(*K>0*) 


Reduce[gaussCurv[X][u,v]>0,u] 


K>0, the points are elliptic for region -(1/Sqrt[2]) 
(*K«0*) 


Reduce[gaussCurv|[X ][u,v]«0,u] 


K<0, the points are hyperbolic for region u<-(1/Sqrt[2]) or u>1/Sqrt[2]. 


wo, 


Reduce[gaussCurv[X][u,v]>=0,u] 


K=0, and since S + 0 the points are parabolic when u=-(1/Sqrt[2]) or 
u=1/Sqrt[2]. 


Let us find the extreme values of K by using FindMinimum command 
and FindMaximum command for local minimum and local maximum, 
respectively. From Figure 4.36 we may estimate the extrema for these 
commands to start the search. 


(* Find the local minimum of K near u=-1 *) 


FindMinimum[gaussCurv[X ][u,v |//Evaluate, {u,-1}] 


(* Find the local minimum of K near u-1 *) 


FindMinimum[gaussCurv[X ][u,v |//Evaluate, {u,1}] 


(* Find the local maximum of K near u=0.01 *) 


FindMaximum[gaussCurv [X ][u,v ]//Evaluate, {u,0.01} ] 


K have local minima at u=-1.1252 and u=1.1252. The minimum value of K 
is -0.247643. 


K has a local maximum at u=0. The maximum value of K is 4. 


Chapter 5. Optimization in Several Variables 


In this chapter, we will study the techniques of finding the extrema of 
functions of several variables. The process is called optimization. Recall in 
single variable case, if f(a) is a local extreme value, then a is called a 
critical point. If the tangent line exists, it is horizontal at x=a. 


A local extremum (either maximum or minimum) always occurs at a critical 
point, that is, at a point where the derivative f '(a)=0. However, the reverse 
is not always true. A critical point may not be a local extremum. To find the 
nature of the critical points we deploy the second derivative test. If f '(a)=0 
and f "(a)>0, then f has a local minimum at x=a; and if f'(a)=0 and f "(a)«0, 
then f has a local maximum at x-a. 


Similarly for a function of two variables, if f(a,b) is a local extreme value, 
then the point (a,b) is a critical point of z=f(x,y). However, in this case, it is 
the tangent plane (if it exists) that must be horizontal. By equation (3.5), the 
tangent plane to z=f(x,y) at (a,b) is given by 


E ôf(a, b) p ôf(a,b) p, 
h(x, y)=f(a, b)+ 21.8 (x — a) + 21.9 (y - b) 


in which we have assumed that f(x,y) is differentiable. 


If f(x,y) has a local extremum at a=(a,b), then we require that the derivative 
of f(x,y) vanishes at a. By equation (3.2): 


Df -( 5 23 


Ox Oy ]a = (0 0) . 
Note that this is equivalent to setting the gradient of f(x, y) (equation 3.1) 
equal to zero. 


Or written in component form: 


at " at 2 
ax (a, b) =0 ay (a, b) 0 


and 
This implies that the equation of the tangent plane is 
z=h(x,y)=f(a,b). 


Thus, the tangent plane is horizontal if Df,-0. 
Initialization 


Clear["Global**"] 

SetOptions[Plot3D,PlotTheme->"Classic" |; 
SetOptions[ContourPlot3D,PlotIheme->"Classic"]; 
SetOptions[Plot,PlotTheme->"Classic",PlotStyle->AbsoluteThickness[2]]; 


SetOptions[ ParametricPlot3D,PlotTheme->"Classic",PlotStyle- 
>AbsoluteThickness[2]]; 


Definition 5.1 


We say that f(x,y) has a local maximum at the point a=(a,b) if 
f(a,b)>=f(x,y) for all (x,y) close to (a,b). 


Similarly, we say that f(x,y) has a local minimum at the point a=(a,b) if 
f(a,b)<=f(x,y) for all (x,y) close to (a,b). 


Let us consider some examples: 


Example 5.1. (a) Find the critical points of the function: 
f(x, y)=x42-2y*242x43. 


(b) Plot the graph and determine the nature of the critical point. 


Solution: 


To find the critical points of f(x,y), we set the derivative of f(x,y) to zero: 


Dis. )=| =. T 0 0) 


and solve the system of equations 


tee 
-4y=0. 


There is a critical point at (x,y)=(-1,0). 


Clear[f] 


1x sy px 2-2y 292x1t3 


Solve[Grad[f[x.y], {x.y ) ," Cartesian" ]-7 {0,0 //Thread, {x,y} ] 


Notice that we have used the Thread command to make sure that the 
partial derivatives with respect to x and y are assigned to zero 
respectively. 


(b) 


Module[ {plot,a,b}, 
a=-1; 
b=0; 


plot[1]=Plot3D[f[x,y]//Evaluate, {x,-2,0}, {y,-1,1},AxesLabel-> 
x "y", "z" H J; 


plot[2]-Graphics3D[ {PointSize[0.03],Red,Point[ {a,b,f[a,b]}]}]; 


Show[Array[plot,2]] 


] 


Figure 5.1. The graph of f(x,y)=x%2-2y*2+2x+3 and the critical point. 


It can be seen from Figure 5.1 the site where the critical point (-1,0) 
occurs is neither a maximum nor minimum. As a matter of fact, it is a 
saddle point. 


Example 5.2. (a) Find the critical points of the function: 
f(x,y)*(x + y)(x^2 + 4y^2 + 3). 


(b) Plot the graph and determine the nature of the critical point. 


Solution: 


(a) We solve the equation 


Df(, y)=(% $ )-(0 0) 


to find the critical points. 


3-xX5-2xys4y? o 
(3 2 22 m53 
+X +4y?) 

3+x?-8xy-4y? _ 4 
(3 2 2 o 
+X +4y?) 


Clear[f] 


f[x ,y. ]:-Gctyy(x^2*4y^243) 


Grad[f[x,y ], (x, y) ," Cartesian" |//Together 


This system of equation is difficult to solve in close form, so we resort to 
numerical solutions using NSolve command. 


NSolve[Grad[f[x,y ], {x,y},"Cartesian" |27 10,0] //Thread, {x,y} ] 


There are two critical points found at 


(1.54919,0.387298) and (-1.54919,-0.387298). 


(b) 


Module[ {plot,x1,x2,y1,y2}, 
{x1,y1}={1.54919,0.387298}; 
{x2,y2}={-1.54919,-0.387298}; 


plot[1]-Plot3D[f[x,y |//Evaluate, {x,-8,8}, {y,-8,8},PlotPoints-> 
120,20) , AxesLabel-» ("x","y","z"1]; 


plot[2 |=Graphics3D[ (PointSize[0.03 ], Red,Point[ f (x 1,y Lf[x 1,y1]3, 
{x2,y2,f[x2,y2]} 3 3T: 


Show [Array[plot,2 |, ViewPoint->{10,-12,15}] 


] 


Figure 5.2. The graph of f(x,y)=(x  y)/(x^2 + Ay^2 + 3) and the two 
extrema. 


From Figure 5.2 we identity the point (1.54919,0.387298) as the local 
maximum and the point (-1.54919,-0.387298) as the local minimum. 


As can be seen from the two examples above, graphs provide a powerful 
tool to reveal information about the nature of critical points. However, it is 
not always the case. As we will see later that sometimes symbolic or 
numerical computations are more revealing (see Example 5.18, Figure 5.25) 


5.1 Second Derivative Test 


As in the single variable case, there is a second derivative test for 
determining the nature of the critical points of a function of two 
variables. It depends on the Hessian matrix defined by 


er ot 
ax? ay ax 
Hf(x, y)= 
( (y ) e ar 
axdy ay? 


For a smooth function, that is, function which has continuous second partial 
af _ att 


derivatives, we have öyöx — 0x0y , Hence, the Hessian matrix is symmetric. 


The test relies on the sign of the determinant of the Hessian matrix. Below 
is the theorem of the second derivative test for function of two variables 
which is stated without proof. We invite readers who are interested in the 
proof to consult textbooks on multivariable calculus. 


Theorem 5.2. Second Derivative Test for local extrema (function of two 
variables) 


Let a=(a,b) be the critical point of a function f(x,y) which has 
continuous second partial derivatives. The Hessian matrix of f(x,y) 
evaluated at a is given by 


ö?f(a) 0?f(a) 
ôx? ay ax 
orte) a°F(a) 
(5.1) Ox dy ay? 


Hf(a)z 


Define d as the determinant of the Hessian matrix H f(a), that is, d=det H 
f(a). Then: 


a? F(a) 

(i) If d>0 and ôx? , then f(a,b) is a local minimum. 
8?f(a) 

(ii) If d>0 and ox? , then f(a,b) is a local maximum. 


(iii) If d«0, then f has a saddle point at (a,b). 


(iv) If d=0, the test is inconclusive. 


Example 5.3. Find the critical points of the function: 
f(x,y)-x^242y^2-Ay-*6x 


and analyze them using Theorem 5.2. 


Solution: 
Step 1. Find the critical points. 


Of _ of .. -— 
a 6 y 4y T 


Setting the derivative of f equals to zero: 


D(x, y)=(% Z )=(0 0) 


? 


we solve the system of equations 


ae 
4y-4=0. 


The solution is (x,y)=(-3,1). 
So, there is only one critical point at (x,y)=(-3,1). 


Clear[f] 


f[x_,y_]:=x42+2y%2-4y+6x 
Solve[Grad[f] x,y], {x,y},"Cartesian" |=={0,0!//Thread, {x,y} ] 


Step 2. Compute the second partial derivatives. 


Zt p zz _ 
ax2 u , Oy Ox 

2 2 

a-f = SA 
Ox dy oy 


Step 3. Apply Theorem 5.2. 
The Hessian matrix is 


HfC3, 1)=(5 A. 


04 


The determinant of H f(-3,1): 


d=8. 


a7#(-3, 1) 
Since d>0 and ôx? , then f(-3,1) is a local minimum. 


Module[ {plot,a,b}, 
a=-3; 
b=1; 


plot[1]-Plot3D[f[x,y ]//Evaluate, {x,-6,0},{y,-2,4},BoxRatios->{1, 1, 
1},AxesLabel->{"x"","y","z"}]; 


plot[2]-Graphics3D[ {PointSize[0.03],Blue,Point[ {a,b,fLa,b]} |} ]; 


Show[Array[plot,2], ViewPoint-> {-4,-2,0} ] 


Figure 5.3. The graph of f(x,y)-x^242y^2-4y*6x with the critical point 
(-3,1,-11). 


Example 5.4. (a) Find the critical points of the function: 
f(x,y)=y^4-2x y*2+x%3-x. 


(b) Determine the nature of the critical points in part (a). 


Solution: 

(a) 

Step 1. Find the critical points. 

at -2 y2 2_4 H=4y3-4x 
x 2y^-3x 1 3y y r 


Setting the derivative of f equals to zero 


Df =(% 3 )=(0 0) 


9 


we solve the system of equations 


ee LE 
4y>-4xy=0.. 


Clear[f] 


f[x_,y_]:=y*4-2x y42+x%3-x 


D[f>.y],x] 


D[f[x.y.y] 


Solve[Grad[f[x.y], (x. y )," Cartesian"]—7-7 (0,01 //Thread, {x,y} ] 


There are six critical points as solutions to the system of equation: 


- four real critical points at: (1,-1), (1,1), C(I/Sqrt[3 ],0), 
(1/Sqrt[3],0), and 


- two complex critical points at: — (-(1/3),-(I/Sqrt[3])) and (- 
(1/3),/Sqrt[3]). 


However, only the real critical points are applicable. 


We can specify the domain of the solutions in the Solve command so 
that it returns only real values: 


Solve[Grad[f[x.y ], {x,y ) ," Cartesian" ]|== (0,0) //T hread, f x, y ) ,Reals] 


(b) 
Step 2. Compute the second partial derivatives. 


2 2 
oF =6x ot - 
ôx , Oy Ox 


-4y 


? 


(* The Hessian matrix *) 


{ UD[f[;y] > {x,2 } |,D[fLx,y] XY] } ; {D[f[x.,y] xx] ;D[flx.y] , 
fy,2}]}}//MatrixForm 


Step 3. Apply the Second Derivative Test 
The Hessian matrix is 


6 x -Ay | 


Hf = 
6c y) er -Ax«12y? 


The determinant of H f(x,y): 


d=-24 x^2-16y^24-72x y^2. 


(* Define the determinant of the Hessian matrix to test critical points *) 


d[x ,y. ]*6 x (-4x+12y”2)-(-4y)(-4y)//Simplify 
Critical point at (1,-1) is a local minimum with value f(1,-1)=-1. 


d[1,-1] 


D[f[x.y] , {x,2 } y. {x-> I „y->- I } 


f[1,-1] 


Critical point at (1,1) is also a local minimum with value f(1,1)=-1. 


d[1,1] 
D[f[x.y], {x,2} /.1x->1,y->1} 


1,1] 


Critical point at (-(1/Sqrt[3]),0) is a saddle point with value f(- 
(1/Sqrt[3]),0)=0.3849. 


d[-(1/Sqrt[3]),0] 


D[f[x.y], 1x25 V. (x->-C1/Sqrt[3]),y->0} 


fl-(L/Sqrt[3]),0]//N 


Critical point at (1/Sqrt[3],0) is also a saddle point with value 
f(1/Sqrt[3],0)=-0.3849. 


d[1/Sqrt[3],0] 
DIfIx,y1,{x,2}.{x->1/Sart[3],y->0} 


f[1/Sqrt[3],0]//N 


Module[ {plot,x1,x2,x3,x4,y1,y2,y3,y4}, 
LYALL; 

w2,y23=il,-13; 
{x3,y3}={-(1/Sqrt[3]),0}; 
{x4,y4}={1/Sqrt[3],0}; 


plot[1]-Plot3D[f[x,y ]//Evaluate, {x,-2,2},{y,-2,2},AxesLabel-> 
Ux" "y", "zz", PlotRange->All]; 


plot[2]-Graphics3D[ { (PointSize[0.03], Red,Point[ f (x 1,y 1, f[x 1,y1]], 
{x2,y2,f[x2,y2]} }]}, {PointSize[0.03],Blue,Point[ {{x3,y3,f[x3,y3]}, 
{x4,y4,f[x4,y4] > 3]; 


Show[Array[plot,2]] 


] 


Figure 5.4. The graph of f(x,y)=y*4-2x y^2*x^3-x with local minimum 
(red) and saddle point (blue). 


Example 5.5. (a) Find the critical points of the function: 
f(x, y)7x^2-2x y*y^2. 


(b) Determine the nature of the critical points in part (a). 


Solution: 

(a) 

Step 1. Find the critical points. 

df 2x- o =-2x+2 
aaay EF 5 + y 


Setting the derivative of f equals to zero 
of QfY 
D(x, y)=( 5, 5, )=(0 0) 
we solve the system of equations 
í 2x-2y=0, 
-2x-42y-0. 


However, the first and the second equation 1s equivalent. So, we do not 
have a definite answer for critical point. 


Clear[f] 


f[x_,y_]:=x42-2x y*y^2 


D[f[x.y x] 


D[ffx,y],y] 


Solve[Grad[f] x,y], (x. y ) ," Cartesian"]—— (0,0) //Thread, {x,y} ] 


There are infinite number of critical points as solutions. As a matter of fact 
the line y=x is the solution for this system of equations. 


(b) 


Step 2. Compute the second partial derivatives. 


ax? ^ ,0yóx 
2 2 

PF NE ft 92 

Ox Oy oy 


(* The Hessian matrix *) 


{ UD[f[;y] > {x,2 } |,D[fLx.y] XY] } " (ID[flx,y] xx] ;D[flx.y] ] 
{y,2} h} V//MatrixForm 


Step 3. Apply the Second Derivative Test 


The Hessian matrix: 


Hr W=(% >] 


The determinant of H f(x,y): 
d=0. 


By Theorem 5.2 the test is inconclusive, we need to use other method to 
determine the nature of the extremum. 


Note that the function f(x,y)=x%2-2x y+y^2 can be written as 
f(x, y)=x%2-2x y+y*%2=(x-y)*2. 


Clearly, it is non-negative and the minimum value for this function is zero. 
Thus, all points on the line y=x are the minima. 


Let us plot the graph: 


Module[ {plot}, 


plot[1]-Plot3D[f[x,y ]|//Evaluate, {x,-2,2}, {y,-2,2}, AxesLabel-> 
ix "y", "z" } js 


plot[2]-Graphics3D[ { AbsoluteThickness[2],Red,Dashed,Line| { (-2,-2,f| -2,- 
2]. 022.122] 3 5 T 


Show [Array[plot,2 | | 


] 


Figure 5.5. The graph of f(x,y)=x%2-2x y*y^2 and minimum points occur 
on the line y=x. 


As can be seen from examples above, Theorem 5.2 is applicable to 
determine the nature of critical points of functions of two variables. 
However, there are cases when we need to handle problems of functions of 
three variables or even more. Then, we may need to extend Theorem 5.2 so 
that it can be used to test critical points of functions of n variable for 
instance. Fortunately, there is such tool available (see for example [Colley] 
page 268) which we state here omitting the proof. 


Theorem 5.3. Second Derivative Test for local extrema (function of n 
variables) 


Let 8 = (81, 82, ..., an) be the critical point of a function 
f(X1, X2, ..., Xn) which has continuous second partial derivatives. The 
Hessian matrix of f(X1, X2, ---, Xn) evaluated at a is given by 


(5.2) 


0x1 0X4 0X2 0x4 OXn 0X4 
H f(a) =] 3x, 9% 0x28xo Oxn 0X2 
X1 Xn OX20Xp OXn ôXn 


Define %k as the determinant of the principal minors of H f(a), that is, 
d, = det Hk f(a) | where Hk f(a) is the upper leftmost K x k submatrix of H 
f(a) and k=1,2,3,...,n. That is, 


_ 8 F(a) 
= 0X1 0X4 : 


ó^f(a F(a) 
0x4 0X1 Ox2 Ox 
d2 = 2 2 
O*f(a) O^f(a) 
0X4 Ox2 Ox2 0x2 


afa) d*f(a)  f(a) 

0X4 0x4 0X2 0x1 OX3 0X1 

d afa) afla)  6of(a) 
0x4 Ox2 0x2 Ox2 0x3 OX2 

ó^f(a afa) °F (a) 

Ox 0x3 0x2 0x3 0x3 0x3 


dn = |Hf(a)| 


Then: 


(i) If dk > 9 for k-1,2,...,, then f(81, @2, ---, an) is a local minimum. 


(ii) If dk <9 for k odd and dk > for k even, then (81, 42, ---, An) isa 
local maximum. 


(iii) If neither case (1) nor case (ii) holds, then f has a saddle point at 
(a4, a2, [ey an) A 


(iv) If d, =0 , the test is inconclusive. The critical point a is said to be 
degenerate. 


Note that for smooth functions the Hessian matrix is symmetric. 
Example 5.6. (a) Find the critical points of the function: 


f(x, y,Z)=2-x%4 y^4-z^4. 


(b) Determine the nature of the critical points in part (a). 


Solution: 

(a) 

Step 1. Find the critical points. 

f ~~ A ef -4 xt y? of 3 
= Ax y y x Az 


To find the critical points we set the derivative of f equals to zero and solve 
for x, y and z 


of Of əf 
Df% y,2)=( 5 5 oz) =(0 0 0) 


In component form: 


-4x°y*=0, 
-4 x^ y? 2 0, 
-Az?-Q0. 


There is only one critical point, that is, at the origin (0,0,0). 


(b) 
Step 2. Compute the second partial derivatives. 
af _ 9 4. OF. id GF. 
x^ 12x y. n 16 x° y“, xa B 
af 3,3 f 4,2 af 
=-16 — =-12x — =(0 
ar _ o?f = Qt. 4972 
ax dz : ay dz : 2 i 
Clear[f] 


I[x.y sz] :=2-x^4 y^4-z^4 


(* The Hessian matrix *) 


{ {D [f[x.y.z] ’ {x,2 } ] ‚D [f[x.y.z] XY] ‚D [f[x.y.z] 2] } , 
{D[f]x,y,z].y,.x],D[f][x,y,z], ty,2 }],D[f>.y.z]y.z]}, 
{D[f]x,y,z],z,x],D[f]x,y,z],z,v],D[f1 x,y,z], {z,2}]} }//MatrixForm 


Step 3. Apply Theorem 5.3. Second Derivative Test for local extrema 
The Hessian matrix: 


“ry sexe O 
Hf(x,y,z)5| -163^ y^ -12x* y^ 0 
0 0 ez 


-12x!y^ -16xXy O 
di-|-16xy? -12xX'y? 0 
0 0 = 


At the origin (x,y,z)=(0,0,0): 
d, =d2=d3=0. 
By Theorem 5.3 (iv) the test is inconclusive. 


We have to use other method to determine the nature of the critical point at 
the origin. 


Observing that the value of f(x,y,z) at (0,0,0) is 2 and f(x,y,z)=2-x*4 y^4- 
Z^4-2 for other points near the origin, we conclude that the origin is a local 


maximum. 


Example 5.7. (a) Find the critical points of the function: 
f(X,y,z,w)7-x^2-2z^2--w^2-x y zty wW. 


(b) Determine the nature of the critical points in part (a). 


Solution: 


(a) 


Step 1. Find the critical points. 


— -2-2X-yz, of =-xz+W 
ôx oy 

of of 
—=-4Z-X — =2W+ 
az y, ôw y 


Setting the derivative of f equals to zero: 


of ôf Of Of 
Di(x,y,z, w)=(5, Oy az a 


-(0000) 


we solve the system of equations 


-2x-yz=0, 
-XZ+W=0, 
-4z-xy=0, 
2w+y=0. 


Clear[f] 


f[X_,y_,Z_,W_]:=-x%2-22742+w%2-x y zty w 
ED AD 


D[f]x,y,z,w],x] 
D[f[x.y.z.w].y] 
DI[f[x,y,2,w],z] 


D [f[x.y.z, w] w] 


Solve[Grad[f]x,y,z,w ], {x,y,z,w }," Cartesian" |=={0,0,0,0}//Thread, 
{X,y,Z,W} ] 


The critical points are found at 

(x, y,Z,w)=(0,0,0,0), 

(x, y,Z,w)=(-Sqrt[2],-2 Sqrt[2],-1,Sqrt[2]), 
(x, y,Z,w)=(-Sqrt[2],2Sqrt[2],1,-Sqrt[2]), 
(x, y,z,w)=(Sqrt[2],-2 Sqrt[2],1,Sqrt[2]), 


(x, y,z,w)=(Saqrt[2],2Sqrt[2],-1,-Sqrt[2]). 


(b) 


Step 2. Compute the second partial derivatives. 


ax ' ay ax '  @z Ax '  @w dx ' 

Kf S Hr of af S 
ax dy ' y? i dz dy ’  @w dy i 

af a?f of 4 art 

u A, PE) on, L 

Ox Oz Oy Oz az Ow Oz 

af af af -0 #t p 
ax dw ’ ay dw j dz ôw ' aw? i 


(* The Hessian matrix *) 


{ {D[f[x,y,z,w] ’ {x,2 } |,D[fLx, y,z,w] X.Y] ‚DI fIx,y,2,w],x,2],D[f]x,y,2,w] »X,W] } , 
{D [f[x. .z, w] yx] „D [f[x,y,z,w] ’ {y,2 } ] „D [f[x,y,z,w] yo „D [f[x. y.z, w] jw] , 
{D [f[x.y.z, w] ZX] ‚D [1]x,y,2,w] 454 „D [f[x. y. z, w] ’ 172 } ],D [f[x. y.z, w] Zw] ’ 
{D [f[x. y.z, w] wx] „D [f[x.y.z. w] Wy] ‚D [f[x. y; zw] „W,Z] „D [f[x.y.z.w] , 
{w,2}]}}//MatrixForm 


Step 3. Apply Theorem 5.3. Second Derivative Test for local extrema 


The Hessian matrix: 


-2 -z -y 0 
-Z 0 -x 1 
Hf(x, y, Z, Ww) = -y =y =A 0 
0 1 02 
m 
d= | 7 Fa à 


b 


-2 -Z -y 
-Z 0 -x 
-y -X -4 


dz = =2x*-2xyz+4z" 


d4 = =-8+4x?+y°-4Axyz+8Z 


d2=Det[ {{-2,-z},{-z,0}}] 


d3=Det[ { {-2,-z,-y}, {-z,0,-x}, {-y,-x,-4} }] 


d4-Det| { {-2,-z,-y,0}, {-z,0,-x,1}, {-y,-x,-4,0$, {0,1,0,2} 1] 


Critical point 1: (x, y,z,w)=(0,0,0,0): 
d,=-2, d5,z0, d3=0, d4,--8 


f has a saddle point at (x,y,z,w)=(0,0,0,0). 


d2/. {x->0,y->0,z->0,w->0} 


d3/. {x->0,y->0,z->0,w->0} 


d4/. {x->0,y->0,z->0,w->0} 


Critical point 2: (x, y,Z,w)=(-Sqrt[2],-2 Sqrt[2],-1,Sqrt[2]): 
dı=-2, &=-1, da=16, d4=32 


f has a saddle point at (x,y,z,w)=(-Sqrt[2],-2 Sqrt[2],-1,Sqrt[2]). 


d2/. {x->-Sqrt[2],y->-2 Sqrt[2],z->-1,w->Sqrt[2]} 


d3/. {x->-Sqrt[2],y->-2 Sqrt[2],z->-1,w->Sqrt[2]} 


d4/. {x->-Sqrt[2],y->-2 Sqrt[2],z->-1,w->Sqrt[2]} 


Critical point 3: (x, y,Z,w)=(-Sqrt[2],2Sqrt[2],1,-Sqrt[2]): 
dı=-2, &&=-1, d3=16, a=32 


f has a saddle point at (x,y,z,w)=(-Sqrt[2],2Sqrt[2],1,-Sqrt[2]). 


d2/. {x->-Sqrt[2],y->2Sqrt[2],z->1,w->-Sqrt[2]} 


d3/. {x->-Sqrt[2],y->2Sqrt[2],z->1,w->-Sqrt[2]} 


d4/. {x->-Sqrt[2],y->2Sqrt[2],z->1,w->-Sqrt[2]} 


Critical point 4: (x, y,Z,w)=(Sqrt[2],-2 Sqrt[2],1,Sqrt[2]): 
d,=-2, do=-1, d4-16, a=32 


f has a saddle point at (x,y,z,w)=(Sqrt[2],-2 Sqrt[2],1,Sqrt[2]). 


d2/. {x->Sqrt[2],y->-2 Sqrt[2],z->1,w->Sqrt[2]} 


d3/.{x->Sqrt[2],y->-2 Sqrt[2],z->1,w->Sqrt[2]} 


d4/. {x->Sqrt[2],y->-2 Sqrt[2],z->1,w->Sqrt[2]} 


Critical point 5: (x, y,Z,w)=(Sqrt[2],2Sqrt[2],-1,-Sqrt[2]): 
(2-2. (b--1, 03-16, dy=32 


f has a saddle point at (x,y,z,w)-(Sqrt[2 |,2Sqrt[2 |,-1,-Sqrt[2 ]). 


d2/. {x->Sqrt[2],y->2Sqrt[2],z->-1,w->-Sqrt[2]} 


d3/. {x->Sqrt[2],y->2Sqrt[2],z->-1,w->-Sqrt[2]} 


d4/. {x->Sqrt[2],y->2Sqrt[2],z->-1,w->-Sqrt[2]} 


So, all the critical points of the function f(x,y,z,w)--x^2-2z^2-w^2-x y z+y 
w are saddle points. Note that there is no available tool to plot a five- 
dimensional hypersurface. 


5.2 Global Extrema 


Thus far, we have considered only local extrema. These are, local 
maximum, local minimum and saddle point. However, sometimes we 
are also interested in finding the maximum and minimum value of a 
function on a certain type of domain D . These are called global or 
absolute extreme values of the function. The type of domain we 
consider is said to be compact, which is defined below: 


Definition 5.4. Compact set in R? 


A domain D € R? is bounded if there is a positive number M such 


that ll Xll <M for all X€ D . The domain D is said to be closed if it 
contains all its boundary points. 


The domain 2 € R? is said to be compact if it is both closed and 
bounded. 


Definition 5.4 can be generalized to n-dimension, where n can be 1, 2 or 
higher numbers. In this book we will consider only n<=3. 


Example 5.8. Compact domain 


Figure 5.6 shows a cuboid domain. It is bounded (contained in a sphere of 
radius 2 centered at the origin) and closed (contains all boundary points 
including the edges). So, the cuboid domain is compact in the interval: 


-1<=x<=], -1<=y<=1, -l<=z<=1. 


Module[ {plot}, 


plot[1]-Graphics3D[EdgeForm[ { AbsoluteThickness[2],Blue} |,» FaceForm[ 
Yellow],Cuboid[ {-1,-1,-1},{1,1,1}]!]; 


plot[2]-Graphics3D[ f Opacity[0.5], Sphere[10,0,01,2]) ]; 


Show[Array[plot,2],Axes->True,AxesLabel->{"x","y","z"} PlotRange-> 
{ {-2,2} , {-2,2} , {-2,2} 3] 


Figure 5.6. The cuboid domain is compact in the interval: -1<=x<=1, 
-1<=y<=], -l<=z<=1. 


Now, we are ready to state our next theorem without proof. 


Theorem 5.5. Extreme Value Theorem 


I2 € R? is compact and let f(x,y,z) be a continuous function on D . 
Then: 


(1) f(x,y,z) must have both a global maximum and a global minimum value 
on 2. 


(11) The extreme values of f(x,y,z) occur either at critical points in the 
interior of D or at points on the boundary of D . 


Hence, we must compare the values of f(x,y,z) at any interior critical points 
with those at the boundary of D to determine which is largest and smallest. 


Although Theorem 5.5 is stated for function of three variables, it is 
applicable to function of two variables as well as it is given in the following 
example. 


Example 5.9. Find the global extrema of f(x,y)=x^2+x y-y^2-6y on the 
rectangle { (x,y)|-3<=x<=3, 0<=y<=5 |. 


Solution: 


Clearly, the rectangle 


D ={(x, y) | -3<xs3, 0sys5] 


(Figure 5.7) is closed because it contains all the points that make up its 
boundary. It is also bounded because there is some (open or closed) disk 
that contains it. Hence, the domain D is compact. 


By Theorem 5.5, the extremum occurs either at a critical point or on the 
boundary of the rectangle (Figure 5.7). 


Module[ {domain}, 


domain=Graphics[ ( EdgeForm[ { AbsoluteThickness[2],Blue} ],FaceForm[Ye 
llow],Rectangle[ {-3,0}, {3,5} ]) |; 


Show[domain,Axes->True,PlotRange-> { {-4,4}, {-1,6}}, Ticks->{ {-3,3}, 
{0,5}},AxesLabel->{"x","y"}] 


] 


Figure 5.7. The domain 
D ={(x, y) | -3<x<3, 0sys5) 


Step 1. Find the critical points. 
We compute the partial derivatives 


Of _ a nm u 
ci ay ir2y 6 


and set the derivative of f equals to zero 


Df(x, y)=(% &)-(o 0) 


Solving the system of equations 


{ 2x+y=0, 
x+2y-6=0. 


we found that there is a critical point at (x,y)=(-2,4) and f(-2,4)=-12. 


Clear[f] 


f[x_,y_]:=x42+x y +y^2-6 y 
Solve[Grad[f] x,y], {x.y ) ," Cartesian" ]-7 {0,0 //Thread, {x,y} ] 


1[-2,4] 


Step 2. Check the boundary. 
Side 1. The bottom edge of D is the set 
E, - (x, y) | y=0, -3<x<3} 


On this edge, f is given by 

f(x) = f(x, 0) =x? 

as (X) 2X , the function « has a critical point at x=0. 
The possible extrema are: (0,0), (-3,0), (3,0). 


The smallest value of (X) is 0. The largest value of ^ (X) is 9. 


Side 2. The top edge of 2D is the set 
E2={(x, y) | y =5, -385xs3j 


Consequently, we define fo by 


fo(x) = f(x, 5) = x7 «5x 425-302 x? -5x-5 


Thus, f2 is the restriction of f(x,y) to Ez., 


We calculate f2' (X) 2 2 X *5 , which implies that x=-(5/2) is a critical point 
off. 


Hence, we consider (-(5/2),5), (-3,5), (3,5) for possible extrema. 


Side 3. The left edge of D is the set 
F3={(x, y) | x2-3, OSy <5} 


Thus, the restriction of f(x,y) to E3 is given by 


fy) =f(-3, y)=9-3y+y*-6y=y*-9y+9 


We have B'(Y)=2y-9, and so y=9/2 is the critical point of fa . 


The possible extrema are: (-3,9/2), (-3,0), (-3,5). But the last two has 
already been considered in previous analysis. 


So, there is only one critical point of f3 to be considered here, that is at 
(-3,9/2). 


Side 4. The right edge of 2D is the set 
E4={(x, y) | x23, OSys5} 


On E4 ‚the function f(x,y) is given by 


fa(y) =F(3, y)=9+3y+y*-6y=y*-3y+9 


So, we have fa'(Y)=2Y-3 ‚and so y=3/2 is the critical point of « . 


The possible extrema are: (3,3/2), (3,0), (3,5). But the last two has already 
been considered in previous analysis. 


So, there is only one critical point at (3,3/2) to be considered as possible 
extrema. 


As a summary, there are nine possible locations for global extrema. These 
are, 


Interiorof® Boundary of D 
Critical points : (-2, 4) (0, 0), (-3, 0), (3, 0), 


(-2, 5), (-3, 5), (3, 5), 
(-3, 5) 
(3, 3) 

Module[ {domain, point,points}, 

point[ 1]={-2,4}; 

point[2 ]- (0,0) ; 

point[3]={-3,0}; 

point[4]={3,0}; 

point[5]={-(5/2),5}; 

point[6]={-3,5}; 

point[7]={3,5}; 

point[8]={-3,9/2}; 


point[9]={3,3/2}; 


points=Graphics[ {Red,PointSize[0.03],Point[ Array[point,9]]} |; 


domain=Graphics[ ( EdgeForm[ {AbsoluteThickness[2],Blue} ],FaceForm[ Ye 
llow],Rectangle[ {-3,0},{3,5}]}]; 


Show[domain,points,Axes->True,PlotRange-> { {-4,4}, {-1,6}},Ticks-> 
{ {-3,3},{0,5}},AxesLabel->{"x","y"}] 


] 


Figure 5.8. The possible extrema on the domain 


D ={(x, y) | -3<x<3, 0sys5) 


Step3. Compare the values of f. 


Next, we compare the values of f(x,y) at these points: 


{f[-2,4],f10,0],f[-3,0],f[3,0],f[-(S/2),5],f[-3,5],f[3,5],f]-3,9/2],f[3,3/2]} 


So, we obtain the global maximum of f(x,y) is 19 at the point (x,y)=(3,5). 


The global minimum of f(x,y) is -12 at the point (x,y)=(-2,4). 


Module[ {plot,x1,x2,x3,x4,x5,x6,x7,x8,x9,y1,y2,y3,y4,y5,y6,y7,y8,y9}, 
ixLylj-71-2,45; 

{x2,y2}={0,0}; 

{x3,y3 f={-3,0}; 

(x4,y4; 13,07; 

{1x5,y55=4-(5/2),5}; 

1X6,y63=1-3,53; 

X7,y73=13,53; 

{x8,y8}={-3,9/2}; 

{x9,y9}={3,3/2}; 


plot[1]-Plot3D[f[x,y |//Evaluate, {x,-3,3},{y,0,5},AxesLabel-> 
[X LA L J; 


plot[2]=Graphics3D[ {PointSize[0.03], ( Yellow,Point[ {x1,y1,f[x1,y1]}]}; 
{Black,Point[ {x7,y7,f[x7,y7]} ]},{Red,Point[ { {x2,y2,f]|x2,y2]}, 
U,y3,f[x3,y3 ] y, 1x4, y4,f[x4,y4]j, 1x5, y5,f[x5,y 5], 1x6, y6,f]x6,y6] 5, 
1x8, y8,f[x8,y8]], (x9,y9,1[x9,y9]] 713 3]; 


Show[Array[plot,2]] 


] 


Figure 5.9. The graph of f(x,y)=x%2+x y*y^2-6y with the global maximum 
(black) and global minimum (yellow). 


Example 5.10. Find the global extrema of f(x,y,z)=x*2+x z-y^2+2z^2+x 
y+5x on the cuboid domain { (x,y,2)|-5<=x<=0, 0<=y<=3,0<=z<=2 } (see 
Figure 5.10). 


Solution: 
By Definition 5.4, the cuboid 
D={(x, y,z)|-5sxs0, Os y<3,0<sz<2} 


(Figure 5.10) is compact. 


By Theorem 5.5, the extremum occurs either at a critical point or on the 
boundary of the cuboid domain. 


Module[ {domain}, 


domain-Graphics3D[ {EdgeForm[ {AbsoluteThickness[2],Blue} ],FaceForm 
[{Opacity[0.1]}],Cuboid[ {0,0,0}, 1-5,3.27 13]; 


Show[domain,Axes-» True, AxesLabel-» ("x","y","z" 1] 


Figure 5.10. The cuboid domain 


D={(x, y,z|-5sxs0,0sys3,0szs2] 


Step 1. Find the critical points. 


We compute the partial derivatives 


85 -2x+y+Z+5, of =x-2y, 9 =x+4z 
Ox Oy Oz 


and set the derivative of f equals to zero 


of Of of 
Df&y,z-( 5 32 )=(0 0 0) 


This yields the system of equations to solve: 


x-2y=0, 


MEO 
x+4z=0. 


There is only one critical point at (x,y,z)=(-(20/9),-(10/9),5/9) and f(- 
(20/9),-(10/9),5/9)=-(50/9). 


However, the critical point is not in D . And we still need to check the 
value of f along the boundary of the domain. 


Clear[f] 


fix ;y z [x 2txz-y 2422^2tx yt5x 
ED AA y y: 


D[f[x.y,z].x] 
D[f[x.y.z]. y] 


D[f[x.y.z].z] 


Solve[Grad[f] x,y,z], {x,y,z},"Cartesian" ]=={0,0,0}//Thread, {x,y,z} | 
f[-(20/9),-(10/9),5/9] 


Step 2. Check the boundary. 
Side 1. The front xz-plane of D is the set 


Fı={(x,y,z)|y=0,-5<x<s0,0<z<2} 


On this side, f is given by 


f(x, Z)=f(x, 0, Zz)= X +xz-yV+2Z+xy+5x 
-X -XZ4225 45x 


5 is a function of two variables. To find the critical points, we use the same 
method for treating function of two variables, so 


ôf. ôf. 
—=2x+z+5, —=4z+x 
Ox Oz 


The system of equations to solve: 


fap cem. 
4z-x-0. 


The function ^ has a critical point at (x,z)=(-(20/7),5/7). 


Solve[{2x+z+5==0,4z7+x==0}, {x,z}] 


Together with the boundary points, the possible extrema are 


(-(20/7),0,5/7), (-5,0,0), (0,0,0),(-5,0,2),(0,0,2). 


Side 2. The front yz-plane of D is the set 


Fo ={(x, y, Z) | x0,0sys3,0szs2) 


The restriction of f(x,y,z) to F2 defines a new function /2 given by 


(y, 2 &f(0, y, z)2x* »xz-y^ «222 xy «5x 
--y^42z? 


The partial derivatives: 


7 


of =47 
oz : 


Solving the system of equations: 


maa 
4z=0: 


we obtain the critical point at (y,z)=(0,0). 


Including boundary points, these are the candidates for possible extrema: 


(0,0,0), (0,3,0), (0,3,2), (0,0,2). 


Some points are already included in previous analysis, so there are only two 
points of f2 for possible extrema: 


(0,3,0) and (0,3,2). 


Side 3. The back xz-plane of D is the set 


F3={(x, y, Z) | y23,-5sxs0,0sz2s2) 


On this side, the restriction of f(x,y,z) to F3 defines a new function « given 
by 


f(x, Z) = f(x, 3, z)=xX+xz-y+2Z+xy+5x 


= X +xz-9+2 2 +3x+5Xx 


= X +xXZz+2Z+8x-9 


So, the partial derivatives are 


The system of equations to solve: 


a wr. 
4z+x=-0. 


The function f3 has a critical point at (x,z)=(-(32/7),8/7). 


Solve[{2x+z+8==0,47+x==0}, {x,z}] 


These are the possible extrema: 
(-(32/7),3,8/7), (-5,3,0), (-5,3,2), (0,3,0),(0,3,2). 


Since some points are already included in previous analysis, we consider 
only these points: 


(-(32/7),3,8/7), (-5,3,0), (-5,3,2). 


Side 4. The back yz-plane of D is the set 


Fy={(x, y, z)| xa-5,0sys3,0sz3s2) 


On this side, f is given by 


fay, 2af(-b,y,z) 2X? -xxz-y?^ «2z «xye5x 
-25-5z-y^«2z2?-5y-25 
--y^-2z?-5z-b5y 


The partial derivatives: 


94 _-_2y-5 E: 


: -4z2-5 
Oy Oz 


Solving the system of equations: 


wen, 
4z-5=0, 


we obtain the critical point (y,z)=(-(5/2),5/4). 
The possible extrema are: (-5,-(5/2),5/4), (-5,3,0), (-5,3,2), (-5,0,0), (-5,0,2). 


However, the point (-5,-(5/2),5/4) is not in our domain while others have 
been included above, so there is none for this side to consider. 


Side 5. The bottom xy-plane of 2D is the set 


Fs={(x,y,z)|z=0,-5<sx<s0,0<sy<s3} 


On this side, the restriction of f(x,y,z) to F5 defines a new function « given 
by 


fs(x, y) ef(x, y, 0)=x*+xz-y?+2z°+xy+5x 
=x?-y*4+xy+5x 


The partial derivatives: 


Solving the system of equations: 


ee, 
-2y+x=0, 


we obtain the only critical point of fs at (x,y)=(-2,-1). 


Solve[ {2xt+y+5==0,-2y+x==0}, {x,y}] 


The point (-2,-1,0) is not in our domain, and all vertices on this side have 
been included in previous analysis, so there is none to consider for this side. 


Side 6. The top xy-plane of D is the set 
Fe ={(x, y, Z) | z22, -5sxs0,0sys3) 


The restriction of f(x,y,z) to Fe defines a new function fe given by 


f(x, y) =F (x, y, 2) =x? -xz-y?^ «22 «xy -5x 
2x 2x-y^-84xy45x 
=x*-y*+xy+7x+8 

The partial derivatives: 


fe 


= =-2y+X 


Solving the system of equations: 


were 
-2y+x=0, 


the function ^6 has a critical point at (x,y)=(-(14/5),-(7/5)). 


Solve[{2x+y+7==0,-2y+x==0}, {x,y}] 


Since all vertices are already accounted for in previous analysis and the 
point (-(14/5),-(7/5),2) is not in our domain, there is none to consider for 
this side. 


In summary, there are fourteen possible locations for global extrema 
including those that are not defined in our domain (these are highlighted): 


D={(x, y,z|-5sxs0,0sys3,0szs2j 


Interior of D Boundary points of 7) 
Critical points : (-2 1 m) (-À 20 0, 5), (-5, 0, 0), 


(0, 0. 0), (-5, 0, 2), (0, 0, 2), 
(0, 3, 0), (0, 3, 2), 


(-2 o 2), (-5, 3, 0), (-5, 3, 2), 


(55,3) 
(-2, -1 = 


(4-12) 
Module[ {domain,point,points}, 
point 1 ]={-(20/7),0,5/7}; 
point[2]={-5,0,0}; 
point[3]={0,0,0}; 
point[4]={-5,0,2}; 


point[5]={0,0,25; 


point[6]={0,3,0}; 

point[7]={0,3,2}; 

point[8]={-(32/7),3,8/7}; 

point[9]={-5,3,0}; 

point[ 10]={-5,3,2}; 

points=Graphics3D[ {Red,PointSize[0.03],Point[ Array[point,10]]} ]; 


domain-Graphics3D[ {EdgeForm[ { AbsoluteThickness[2],Blue} ],FaceForm 
[{Opacity[0.1]} ],Cuboid[ {0,0,0}, {-5,3,25]}]; 


Show[domain,points, Axes->True,AxesLabel->{"x","y"}] 


] 


Figure 5.11. The possible extrema on the cuboid domain { 
(x, y,Z)|-5<=x<=0, 0<=y<=3,0<=z<=2 }. 


{{[-(20/7),0,5/7],f]-5,0,0],f[0,0,0],f]-5,0,2],£10,0,2],f[0,3,0],f10,3,2].f]- 
(32/7),3,8/7],f[-5,3,0],f[-5,3,2] }//N 


Comparing the results above, we conclude that 
Global (absolute) maximum of f(x,y,z) is 8 at (0,0,2). 
Global (absolute) minimum of f(x,y,z) is -27.2857 at (-(32/7),3,8/7). 


Note that the function f(x,y,z) is four-dimensional hypersurface, so it is not 
possible to graph it in three-dimensional graphics. However, we still can 
illustrate by graph the global maximum and minimum of the function f 
confined on the domain D by reducing the dimension to three-dimensional 
surface by plotting the level surfaces of f(x,y,z) at these extreme values, and 
together with the corresponding cuboid domain as is shown in Figure 5.12. 
Notice that the two extrema on the domain touches the level surfaces of f at 
f(x, y,z)=8 and f(x,y,z)=-27.2857, respectively. 


Module[ {domain,plot,max,min}, 
max={0,0,2}; 
min={-(32/7),3,8/7}; 


domain-Graphics3D[ {EdgeForm| {AbsoluteThickness[2],Red} ],FaceForm[ 
{Opacity[0.1]}],Cuboid] {0,0,0}, (-5,3,2 5 |) J; 


plot-ContourPlot3D| {f] x,y,z ]==8,f] x,y,z |==-27.2857}, {x,-10,5}, {y,-3,6}, 
{z,-2,4},Mesh->None,ContourStyle-> { { Yellow,Opacity[0.2]}, 
{Red,Opacity[0.4]} +]; 


points=Graphics3D[ { {PointSize[0.02],Blue,Point[max]}, 
{PointSize[0.02],Red,Point[min]} } |; 


Show[domain,plot,points, Axes->True,AxesLabel-> 
{"x","y","z"} ImageSize->400] 


| 7 
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Figure 5.12. The global maximum and minimum of the function 
f(x, y,Z)=x*2+x z-y^2+2z^2+x y+5x plotted as level surfaces of f(x,y,z)=8 
and f(x, y,z)=-27.2857, respectively; confined on the cuboid domain 


D={(x, y, z) | -5sxs0, 0sys3,0szs2) 


5.3 Lagrange Multipliers: Constrained Extrema 


Thus far, our discussion has been finding extrema of a function without 
constraints. Although we have considered functions confined on certain 
type of domains, these are not the kind of constraints we are going to 
discuss in this section. In some optimization problems we may need to 
find the extreme of a function subject to one or more constraint 
functions. For example, we want to find the extreme values of a function 
f(x,y) subject to a constraint g(x,y)=0. The method of solving this type of 
problems is called the Lagrange Multipliers method which is stated in 
the following theorem without proof: 


Theorem 5.6. Lagrange Multipliers 


Let D € R° and f, 9 : (X, y) DR be differentiable. If f(x,y) has an 


extremum on the constraint g(x,y)-c at a point (a,b), and if V9(a, b) #0 , 
then there is a scalar À such that 


(5.3) Vf(a, b) - AVg(a, b). 


Equation (5.3) is referred to as the Lagrange condition and the 
parameter X is called the Lagrange multiplier. 


Though Theorem 5.6 is stated for functions of two variables, it can be 
generalized for functions of three variables. As a matter of fact, the method 
of Lagrange multipliers is valid in any number of variables and for multiple 
constraints. In such cases, the Lagrange condition becomes 


(5.4) 


VF (ay, a2, meg an) =A, Vg4(a1, a2, FREE An) + À2 V g»(a1, a2, eme an), 


+... tAk VgK(a1, 82, ---, An), 
where 
g1(X1, X2, ..., Xn) = C1, 
g2(X1, Xo, ---, Xn) = Ca, 
(5.5) gk(X1, Xo, ---)Xn)=Ck, — andk 


Example 5.11. Use Lagrange multipliers method to find the extreme values 
of 


f(x,y)=x43+x yty^3, 
subject to the given constraint: 


g(x,y)=x^3-x yry^3-1. 


Solution: 

Step 1. Write out the Lagrange equations. 
The constraint is 

gG,y)-l, where g(x,y)=x%3-x y+y^3. 
So, the gradient of f and g are 


Vf=(3x?+y, 3y? +x) Vg-(3x -y,3y^-x) 


The Lagrange conditions: 
Vf(x, y) =AVQ(x, y). 


when written in component forms are the Lagrange equations: 


3x? «y -A(3 x* - y), 
3y* «x -A(3y* - x). 
Step 2. Solve for À in terms of x and y. 


L3xXy „_3Yr+x 
3x?-y' 


i 3y?-x . 


Step 3. Solve for x and y using the constraint. 

Since the two expressions for A must be equal, we have 

(3x^2 + yy(3x^2 - y)=(3y^2 + xy (3y^2 - x). 

Solving the above equation, we obtain (discarding complex solutions): 


y-x. 


Solve[(3x^2ty)/(3x^2-y)--(3y^24x)/(3y^2-x), {x,y} ] 


Using the constraint: 

g(x,y)-x^3-x y+y^3=1 and y=x, 
we get 

2x^3-x^2-], 


2x^3-x^2-1-70, 


Solve[2x^3-x^2-1--0,x] 


Taking only the real solution we obtain the extremum point at (x,y)=(1,1). 


Step 4. Find the extreme value. 


The extreme value of f(x,y) at (x,y)=(1,1) is 3. 


Clear[f,g] 
f[x ,y ]|-x^34x y+y%3 


g[x ;,y. |:-x^3-x yty%3 


Let us plot some graphs: 


Module[ {plot}, 
plot[1]-Plot3D[f[x,y], {x,-3,34,{y,-3,3},AxesLabel->{"x","y","z"}]; 


plot[2]-ContourPlot[g[x,y ], {x,-3,3}, {y,-3,3},AxesLabel-> 
{"x" "y" "z"} ,Contours-> { 1 I 


GraphicsGrid[ ( Table[plot[i ], {1,1,2}]},ImageSize->500] 


] 
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Figure 5.13. The graph of f(x,y)=x*3+x y+y^3 and the level curve of the 
constraint function g(x,y)-x^3-x y+y^3=1. 


To analyze the nature of the critical point we use ContourPlot to plot the 
level curves of both functions: 


Module[ {plot,x,y}, 


{xyf={1, 1}; 

plot[1]-ContourPlot[f[x,y ], {x,-3,3}, {y,-3,3},Contours-> 
{-5,-3,-1,0,1,3,5},ContourShading->None,ContourLabels- 
>True,ContourStyle->Green]; 


plot[2]=ContourPlot[g[x,y]==1, {x,-3,3}, {y,-3,3},ContourShading- 
>None,ContourLabels->True]; 


plot[3 ]=Graphics| {PointSize[0.02],Red,Point[ {x,y} ]) |; 
Show [Array [plot,3]] 


] 


Figure 5.14. The level curves of the function to be optimized f(x,y)=x%3+x 
y+y^3 and the constraint g(x,y)=x%3-x yty^3-1 meet at the extreme point 


(1,1). 


Figure 5.14 shows the level curve of f(x,y)=3 is tangent to the constraint 
curve g(x,y)-1 at the extreme point (x,y)=(1,1). Since, all other level curves 
of f(x,y) that intersect the level curves of g(x,y)=1 have values lower than 3, 
we conclude that the extremum is a local maximum of f(x,y) subject to the 
constraint. Looking at the behavior of the level curves of f(x,y) it is likely 
that this is also the global maximum of f(x,y). 


Example 5.12. Suppose a toy manufacturer is investing in x units of labor (at 
$75 per unit) and y units of capital (at $60 per unit) to produce 
P(x,y)2100x^0.25 y^0.75 toys. Find the maximum production level P on a 
budget of $250,000. 


Solution: 
The total cost of production is the constraint in this problem. 
Thus, the constraint is given by 


8(x,y)=75x+60y=250000. 


Step 1. Write out the Lagrange equations. 
Write 

f(x, y)-P(x,y)-100x^0.25 y^0.75. 

Vf- (25 x 975 ym 75 x9?5 p 
‚vg= (75, 60) | 

Using the Lagrange condition: 

Vf(x, y) -AVg(x, y), 

we get the Lagrange equations: 


25 y 075 075 275A, 
75 x025 y-925 = 60 A. 


Step 2. Solve for À in terms of x and y. 
A —1/3 (y/x)^0.75, A =5/4 (y/x)^-0.25. 
The two expressions for A must be equal, so 


1/3 (y/x)^0.75—5/4 (ylxy^-0.25. 


Step 3. Solve for x and y using the constraint. 
Multiplying both sides with 3(y/x)^0.25, we get 


y/x-15/4, | y-3.75x. 


Solve[(25x^-0.75 y^0.75——754,75x^0.25 y*-0.25==60A} | 


Substituting y=3.75x into the constraint 
8(x,y)=75x+60y=250000. 
we obtain 


x=833.333 and y=3125. 


solx=Solve[75x+60y==250000/.y->3.75x,x] 


soly=3.75*x /.solx[[1]] 


Step 4. Find the maximum production level 


The maximum production level is obtained by substituting x=833.3333 and 
y=3125 into P(x,y) to yield 224565 toys with a cost per toy of 
250000/224565, or about $1.11. 


Note that we have assumed that the extremum is a maximum as stated by the 
problem. This is justifiable since exponential functions are increasing, so we 


expect it to hit a point where it meets the constraint as the maximum point 
subject to this constraint. Actually, there is a Second Derivative Test which 
will be discussed in the following where we can use to determine the nature 
of the extremum precisely. 


Clear[P] 


P[x ,y. ]:4100x^0.25 y^0.75 


P[x,y]|/.solx[[1]]/.y->soly 


250000/224565//N 


Module[ {plot,x,y}, 
x=833.333; 
y=3125; 


plot[ 1 ]=ContourPlot[P[x,y], {x,0, 1500}, {y,2500,3500! ,Contours-> 
{150000,200000,224565,250000}]; 


plot[2]=ContourPlot[75x+60y==250000, {x,0,1500}, 
{y,2500,3500},ContourStyle-> { AbsoluteThickness[2],Red} |; 


plot[3]-Graphics| {PointSize[0.03],Blue,Point[ {x,y} ]) |; 
Show [Array [plot,3]] 


] 
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Figure 5.15. The level curves of production function P(x,y)-100x^0.25 
y^0.75 subject to the budget line 75x+60y=250000. The production 
function is known as Cobb-Douglas production function and the level 
curves are called isoquants. 


In Example 5.11 and 5.12 above we determined the nature of the extrema 
(maximum or minimum) by investigating the problem at hand. However, 
often it is not easy to do so when the variables are more than two and the 
function is subject to multiple constraints. So, we need a tool similar to the 
unconstrained case. Therefore, we present in the following a Second 
Derivative Test like the one in Theorem 5.3 for n variables with k 
constraints. Similar to the unconstrained case, however, this test only 
determines the local extremum of a critical point, not a global extremum. 


Theorem 5.7. Second Derivative Test for constrained local extrema 


Let a = (1, 42, ..., An) be a constrained critical point of ^ (X1, X2, ~- 
subject to the constraints 


91(X4, X2, Sang Xn) = C4, 
go, X2, mong Xn) = C2, 
(5.6) gk (X1, Xo, ..., X5) = Cx, where k 


Construct a Lagrangian function ¥ defined by 
(5.7) 
L(A; x) = L(A1, Az, ..., Àk, Xt; X2; --- Xn) 


k 
= f(x, X2, Beg x)-2 Ài [9i(X1, X2, Sey Xn) - Ci] 
= 


The Hessian of £ is the matrix given by 


(5.8) 
La) La) .. aLa) aLla) La) ... Lla) 
OA, 844 Ola 44 Àk OM 8x4 944 ÓX2 0A, OXn 04 
La) La) ... aLa) aLa) La) ... Lla) 
Àq OA2 O0À2 0À2 OA, 0À2 Ox 1 0À2 ÓX2 0À2 ÖXn öAa 
La) Le) ... La) aLla) Le) ... 9^1) 
, = OA, OAK O0À2 OAK OAK Àk | OX4 OAK 0x2 OAK OXp OAK 
H L(A; a) u 2 2 2 2 o? o? 
La) La) ... FL(a) La) £a) ... L(a) 
OA, 0X4 OA2 0x1 OA, Ox Ox4 Ox 0x2 0X4 ÖXn 0X1 
La) La) ... La) La) aLa) ... aLla) 
841 0x2 Àz 8% OAK OX2 X1 X2 X2 X2 ÖXn OX2 
La) aLa) ... La) La) aLa) ... aLla) 
OA1 Xn Àz OXp OAK Xn OX10Xn OX20Xg OXn OXn 


Note that MH L(A} a) is an (N + k) x (n + k) matrix. 


Let Hj L(A; a) pe the upper leftmost J X J submatrix of H L(A; a). 
Write 

dj = det Hj L(A; a) | 

For j=1,2.,...,.n+k, calculate the following sequence of n-k numbers: 
(5.9) (-1 doy, C doa, ..., (1) dias, 

Then: 


(i) If the sequence in (5.9) consists entirely of positive numbers, then f has a 
local minimum at a subject to the constraints in (5.6). 


(ii) If the first number in (5.9) is a negative number and thereafter alternates 
in sign, then f has a local maximum at a subject to the constraints in (5.6). 


(iii) If neither case (1) nor case (11) holds, then f has a constrained saddle 
point at (a4, ao, ..., An) : 


(iv) If %kın = det H L(A; a) - 0 , the test is inconclusive. The critical point 
a is said to be degenerate. 
Example 5.13. Find the extreme values of f(x,y,z)=3x y-4y z+5x z subject to 


the constraints 


3x+y+2 z=12 and 2x-3yt+5z=0. 


Solution: 
Step 1. Write out the Lagrange equations. 


There are two constraints in this problem 


{ gı (X, y, Z)=3xX+y+2Z=12, 
g» (X, y, Z)=2x-3y+5z=0. 


Finding the gradient of f, 91 and 92 , we get 
Vf(x,y, Z)=(B8y+5zZ, 3x-Az, 5x-Ay) 


{ Vgilx, y, Z) - (3, 1, 2), 
Vgo(x, y, Z) = (2, -3, 5). 


By equation (5.4) the Lagrange condition for two constraints is 


Vf(x, y, Z) 2 A4 Vg«(X, y, Z) +Az Vgo(x, y, Z) 


Thus, the Lagrange equations: 


3x-4z224-3A5, 


| 3y+9Z=3A1ı+2A,, 
9xX-Ay=2Aı+5An. 


Clear[f,gl,g2] 
f[x ,y ,z [23x y-4y z+5x z 
gl[x_,y_,z_]:=3x+y+2 z 


g2[x ,y ,.z |:=2x-3yt+5 z 
Grad[f[x,y,z], {x,y,z},"Cartesian"] 


Grad[g1[x,y,z], x; y,z) ," Cartesian"] 


Grad[g2[x,y,z], {x,y,z},"Cartesian" | 


Step 2. Solve for A : A2 , X, Y, Z. 


Solve[ {Grad[f[x,y,z], {x,y,z},"Cartesian"]==A1 Grad[g1[x,y,z], 
{x,y,z},"Cartesian"]+A2 Grad[g2[x,y,z], 
{x,y,z},"Cartesian"],¢1[x,y,z]==12,g¢2[x,y,z]==0}//Thread] 


There is one critical point including Lagrange multipliers at 
( Ay, 22 »%,y,2)=(482/121,-(107/121),31/11,29/11,5/11). 
The extreme value at this point is f(31/11,29/11,5/11)=23.9. 


To find out if it is a local maximum, minimum or saddle point, we need the 
second derivative test, Theorem 5.7. 


f[31/11,29/11,5/11/N 


Step 3. Second Derivative Test for constrained local extrema 


We construct the Lagrangian function using equation (5.7): 


L(A, Az, X, y, Z) - f(x, y, zZ) 
-À [91(X, y, Z) - c1] - A2 [g2(X, y, Z) - c2], 


LA, A2,X,y,Z)=3xy-4yz+5xz 
-Aà (3X +y +2 Z) +12 A1 -A2 (2x-3y +52). 


By equation (5.8), the Hessian matrix of £ is 


L L ZL ËL ZL 

0404 0À20M4 O0xO0M OYOA, O0z08A 
CPL Cr eor Hu er 

044 Ola Ola Ola ôx dA2 oy Ola Oz 0À2 

H (A, Aa, X, Y, Z) = 2L oL Zu Su e 
OA, 0x | O0À20x  OxOx  OyOx  OzOx 

ALL #24. £2 22 GE 

OA, 0y | O0À20y  OxOy  OyOy dzdy 

2r ZE 22 GE Gu 

0A,0Z  O0À20z  OxOz  OyOz  OzOz 


Computing the second derivatives and enter into the matrix we get 


Ü 4-4 
00-23 -5 
HÍ(M,À,X,y,2-|-3-20 3 5 
Sos X 8 o 

ud uh. d cd: d) 


Clear[c1,c2,lagrangian] 
c1=12; 


c2=0; 


lagrangian[Al ,A2_,x_,y_,z_]:=f]x,y,z]-A1*(g1[x,y,z]-cl)-A2*(g2[x,y,z]-c2) 


(* Find the Hessian matrix of the Lagrangian function *) 
Module[ {n,k}, 

Clear[A1,A2,x,y,z]; 

n=3; 

k=2; 

X[1]2A1; 

X[2]=A2; 

X[3]=x; 

x[4]=y; 

X[5]=z; 


Table[D[lagrangian[X[1],X[2],X[3],X[4],X[5]],X[i],X[j]], {i,1,n+k}, 
{j,1,n+k} ]//MatrixForm 


] 


Since the Hessian matrix is constant, we just need to find the sequence of 
numbers as required by Theorem 5.7. 


There are three variables and two constraints, so n=3 and k=2, respectively. 
There is 1 (n-k=1) sequence of number by equation (5.9): 


D D 4-74 
00-23 -5 
(-1}d5= | -3 -2 0 3 5 | =-2904 
-13 3 0 -4 
-2-5 5 -4 0 


(-1)42*Det[ { {0,0,-3,-1,-2}, {0,0,-2,3,-5}, {-3,-2,0,3,5}, {-1,3,3,0,-4}, 
{-2,-5,5,-4,0} +] 


By Theorem 5.7 (iii) the point at (x,y,z)=(3 1/11,29/11,5/11) is a constrained 
saddle point of f(x,y,z)=3x y-4y z+5x z subject to the constraints 3x+y+2 
z=12 and 2x-3y+5z=0. 


We select a point very close to our critical point and specify it in 
FindMinimum and FindMaximum to verify our results below: 


(* The critical point *) 


(31/11,29/11,5/111//N 


FindMinimun] {f[x,y,z],¢1[x,y,z]==12,g2[x,y,z|==0}, { {x,2.818181}, 
{y,2.636363},{z,0.45454545} }] 


FindMaximun] {f[x, y,z],g1[x,y,z]==12,g2[x,y,z]==0},{ {x,2.818181}, 
{y,2.636363}, {z,0.45454545} }] 


In one direction the critical point is minimum while in another direction a 
maximum. This suggests that the critical point is indeed a saddle point. 


Module[ {plot,x,y,z}, 
{x,y,Z}={31/11,29/11,5/11}; 


plot[ 1 ]=ContourPlot3D[f[x,y,z], {x,0,6}, {y,-1,6}, {z,0,1},Contours-> 
{23.9} ContourStyle-> Yellow]; 


plot[2 |=ContourPlot3 D[g1[x,y,z]==12, {x,0,6}, {y,-1,6}, {z,0,1},Mesh- 
>None,ContourStyle-> {Red,Opacity[0.2]} ]; 


plot[3 |=ContourPlot3 D[ g2[x,y,z]==0, {x,0,6}, {y,-1,6},{z,0,1},Mesh- 
>None,ContourStyle-> {Blue,Opacity[0.2]}]; 


plot[4]-Graphics3D[ {Blue,PointSize[0.04],Point[ {x,y,z} ]}]; 
Show[Array[plot,4],AxesLabel->{"x","y","z"}, ViewPoint-> {6,1,3}] 


] 


Figure 5.16. The extreme value of the function f(x,y,z)=3x y-4y z+5x z 
subject to the constraints 3x+y+2 z=12 and 2x-3y+5z=0, plotted as the level 
surface of f(x,y,z)=23.9 at the saddle point (x,y,z)=(3 1/11,29/11,5/11). 


Example 5.14. Find the extreme values of f(x,y,z,w)=x^2+y^2+z^2+w^2 
subject to the constraints 


x^2ty^2-l],  xtytztw-l,  x-yt+z-w=0. 


Solution: 


Step 1. Write out the Lagrange equations. 


In this problem we have four variables (a five-dimensional hypersurface) 
and three constraints: 


Q(X, y, Z, ) 2x2 «y? - 1, 
9» (X, y, Z, w)=X+y+z+w=1, 
93, (X, yY, Z, W)=X-y+Zz-w=0. 


The gradient of f, 91 , 92 , and 93 : 
Vf(x, y, z, w)=(2x,2y,2z,2w) 


’ 


vgı(x,y, z,w)=(2x,2y,0,0), 

E y, Zz, W) - (1, 1, 1, 1), 
Vgs (X, y, z, w) - (1, -1, 1, -1). 

The Lagrange conditions becomes 


Vf(x, y, Z, W) = 4 g4(X, y, Z, w) + À2 go(X, y, Z, w) 
+A3 93(X, y, Z, w) 


We obtain the Lagrange equations: 


2X22XÀ + À2 + À3, 
2y-2yA + Àz = À3, 
2 Z= À> + À3, 
2 w = À> - À3. 


to be solved with three constraints. 


Clear[f,g1,g2,g3] 
f[x ,y z ,w_]:=x^2+y^2+z^2+w^2 


gl[x ,y ,z ,w_]:=x^2+y^2 


g2[x_,y_,z_,w_]:=xt+yt+zt+w 


g3[x_,y_,zZ_,w_]:=x-y+z-w 


Grad[f[x,y,z,w ], (x, yz, w] ," Cartesian" | 


Grad[gl [x,y,z,w], {x,y,z,w},"Cartesian" ] 
Grad[g2[x,y,z,w], {x,y,z,w},"Cartesian" | 


Grad[g3[x,y,z,w], {x,y,z,w},"Cartesian" | 
Step 2. Solve for A : A2 : A3 , X, V, Z, W. 


Solve[ (Grad[f[x,y,z,w], {x,y,z,w },"Cartesian" ]==A1 Grad[g1[x,y,z,w], 
{x,y,z,w},"Cartesian"|+A2 Grad[g2[x,y,z,w],{x,y,z,w},""Cartesian"]+A3 
Grad[g3[x,y,z,w], 
{x,y,z,w},"Cartesian"],¢1[x,y,z,w]==1,g2[x,y,z,w]==1,g3[x,y,z,w]==0}//Thr 
ead] 


The solutions are two constrained critical points including the Lagrange 
multipliers at 


Aya 24+, do =14+V2,A3=0, 
2 


-=g z= 1[142),.w=1{1+ 2) 


Ay 22- 75, o 21-42, 2520, 


Step 3. Second Derivative Test for constrained local extrema 
We construct the Lagrangian function using equation (5.7): 


L(A1, A2, X, y, z, w) - f(x, y, z, w) - à [91(X, y, z, w) - c4] 

-Az [92(X, y, Z, w) - c2] - As [gs y, Z, w) - c3], 
LM, An, X, y, Z, W) =X? +y? +z? -w^- A (x? +?) +A, 

-Àz (X*-y*-Z-W)*-Ào-As(X-y *Z-W). 


Clear[c1,c2,c3,lagrangian] 


lagrangian[Al ,A2 ,A3 ,x ,y z ,w [flx;,yz,w]-Al*(gl[x,y,z,w]-c1)-A2* 
(82[x,y,2,w]-c2)-A3*(g3[x,y,2,w]-c3) 


By equation (5.8), the Hessian matrix of £: 


H LL (A4, Aa, Ag, X, Y, Z, 
aL 


OA4 8 


L 


OA4 022 


L 


OA4 023 
am 
OA4 Ox 
PL 
OA4 Oy 
AL 
OA4 ðZ 
Er. 
Àq Ow 


er 
0À2 04 

ar 
An öko 

ar 
Àz 0À3 
Br. 
0À20x 
FL 
Andy 
EE. 
OA 0z 
GE 
0À2 ðw 


H L(A1, 22, Ag, X, y, Z, W) = 


(* Find the Hessian matrix of the Lagrangian function *) 


Module[ {n,k}, 


Clear[A1,42,A3,x,y,z,w]; 


n=4; 
k=3; 
X[1]=A1; 


X[2]=A2; 


GE. GEE SED PL 
OyOM 0204 O0WO0AÀ 

GE. WE. 82. Wu 
O0y0Ào 0z20À2 AWAAD 

SEL ro Gero Gn 
0y0À3 O020À3 O0w0Àa 
FL FL AL 
OyOx dz0x  OwOx 
L FL FL 
OyOy dzdy  OwOy 
L er er 
ðyðz 0202  O0wOz 
aL FL wr 
OyOw dzdw  OwOw 


0 00 -2x 
0 00 -1 
0 00 1 
2x wb o4 2-2 
Sy 41 0 
BÉ iA d 
0-11 0 


N O O O = 


X[3]=A3; 
X[4]-x; 
X[5]-y; 
X[6]=z; 


X[7|=w; 


Table[D[lagrangian[X[1],X[2],X[3],.X[4], X[ 5], X[6], X[7] , X [1], X[7]]. 
ü, Ink), {j,1,.n+k} ]//MatrixForm 


] 


To compute the Hessian matrix at a critical point, we write another function: 


(* Find the Hessian matrix of the Lagrangian function at a critical point *) 


Clear[hessianLagrangian | 


hessianLagrangian[lagrangian , 
{ml ,m2 ,m3 „al ,a2 ,a3 ,a4 }|:=Module[{n,k}, 


Clear[A1,A2,A3,x,y,z,w ]; 


n=4; 


X[5]7y; 
X[6]-z; 
X[7 |»w; 


Table[D[lagrangian[ X[1], X[2],X[3].X[4],X[5]. X[6],X[ 7] X [1]. X[3]], 
t, Tank), {j,1,n+k}]/. {A1->m1,A2->m2,A3->m3,x->al,y->a2,z->a3,w->a4} 


] 


Next, we investigate the Hessian matrix for the two critical points obtained 
above. 


Check critical point 1: 


A,= 2+, Ag=14V2, A3 =0, 
knee zahlte 2) we roa 


(* Compute the Hessian matrix of the Lagrangian function at critical point 1 


*) 


hessianLagrangian[lagrangian, {2+1/Sqrt[2],1+Sqrt[2],0,-(1/Sqrt[2]),- 
(1/Sqrt[2]),1/2 (1+Sqrt[2]),1/2 (1+Sqrt[2])} |//MatrixForm 


Since n=4 and k=3, there is 1 (n-k=1) sequence of number by equation (5.9): 


0 00 V2 V2 0 0 

0 0 0 4 4 died 

0 0 0 4 1 EE 
3 42 -1 4 2-2(2+ 1) 0 0 0 

(-1)° d; =(-1) V2 
42 -1 1 0 2-2(2+ 4} 0 0 
V2 
0 -1-1 0 0 2 
0-11 0 0 0 2 


=-16 V2 


(-1)^3*Det[1 {0,0,0,Sqrt[2],Sqrt[2],0,0} > {0,0,0,- I 1l zm 1 „1 } , 10,0,0,- I , I Ds 1 , 1 } , 
fSqrt[2],-1,-1,2-2 (2+1/Sqrt[2]),0,0,0}, fSqrt[2],-1,1,0,2-2 
(2+1/Sqrt[2]),0,0}, {0,-1,-1,0,0,2,0!, {0,-1,1,0,0,0,2} 3] 


There is only one sequence of number here. By Theorem 5.7.(iii) it is a 
constrained saddle point. It can be verified using FindMinimum and 
Find Maximum below: 


(* Critical point 1: x, y, z, w *) 


{-(1/Sqrt[2]),-C1/Sqrt[2]), 1/2 (1+Sqrt[2]),1/2 (1+Sqrt[2])}//N 


FindMinimum[(f[x.y,z, w],gl [x.y.z w]—1.g2 Dx. yz, w]—Lg3 Doy, z w]-—-05. 
{ {x,-0.7}, ty,-0.7}, ul. lj; {w,1. 1 5] 


FindMaximumy[ {f[x,y,z,w],g1[x,y,z,w]==1,g2[x,y,z,w]==1,g3[x,y,z,w]==0}, 
{ {x,-0.7}, {y,-0.7}, 12.1; 11: {w, 1. l 31] 


Since in one direction it is a local minimum and another direction a local 
maximum, this suggests that the critical point at (x,y,z,w)=(-(1/Sqrt[2]),- 
(1/Sqrt[2]),1/2 (1+Sqrt[2]), 1/2 (1+Sqrt[2])) is a saddle point. The extreme 
value at this point is 3.91421. 


f]-(1/Sqrt[2]),-(1/Sqrt[2]), 1/2 (1+Sqrt[2}), 1/2 (1+Sqrt[2])//N 


Check critical point 2: 

oe M T | - 
A ed g^ 1-vV2, A0. 

u — | 1 [4 
x=, Ya T 1(1- v2), wzi(1 -V2) 


(* Compute the Hessian matrix of the Lagrangian function at critical point 2 


J 


hessianLagrangian[lagrangian, {2-1/Sqrt[2],1- 
Sqrt[2],0,1/Sqrt[2], 1/Sqrt[2],1/2 (1-Sqrt[2]),1/2 (1-Sqrt[2])} //MatrixForm 


0 0 0 -42 -42 0 0 
0 00 4 4 414 
0 00 2 1 44 
3,4. ed m od 2-2(2--— 0 0 0 
(-1y d; = (-1) V2 
fF ud: 3 0 2-2(2-—] 0 0 
42 
0 -1-4 0 0 2 
0 -4 1 0 0 0 


(-1)3*Det[ { {0,0,0,-Sqrt[2],-Sqrt[2],0,0},{0,0,0,-1,-1,-1,-1}, 
£0,0,0,-1,1,-1,1}, {-Sqrt[2],-1,-1,2-2 (2-1/Sqrt[2]),0,0,01, {-Sqrt[2],-1,1,0,2-2 
(2-1/Sqrt[2]),0,03, {0,-1,-1,0,0,2,03, (0,-1,1,0,0,0,211] 


The sequence consists of only one positive number. By Theorem 5.7.(iii) 
it is a constrained saddle point. We verify this with FindMinimum and 
FindMaximum using start point near critical point 2: 


(* Critical point 2: x, y, z, w *) 


£1/Sqrt[2],1/Sqrt[2],1/2 (1-Sqrt[2]),1/2 (1-Sqrt[2])}//N 


FindMinimum[(f[x.y,z,w].gl [x.y.z,w]—1.g2 Dx. yz, w]— lg3 Dy z w]-—05. 
{ {x,0.7} , {y,0.7} , {Z,-0. 55; {w,-0. 5} 3] 


FindMaximun] {{[x,y,z,w],g1[x,y,z,w]==1,g2[x,y,z,w]==1,g3[x,y,z,w]==0}, 
{ {x,0.7} , {y,0.7} , {z,-0. I 3; {w,-0. I 9j 3] 


Using the same argument as the first critical point, the point at (x,y,z,w)= 
(1/Sqrt[2], 1/Sqrt[2], 1/2 (1-Sqrt[2]),1/2 (1-Sqrt[2])) is also a saddle point of f. 
The extreme value at this point is 1.08579. 


f[1/Sqrt[2],1/Sqrt[2],1/2 (1-Sqrt[2]),1/2 (1-Sqrt[2])]//N 


Thus, the two critical points are saddle points of the function 
f(x, y,z,w)-x^2ty^2-*z^2--w^2 subject to the constraints: 


x^2ty^2-], xtytztw=l, x-y+z-w=0. 


Example 5.15. A line is given by the equation 
y--x44. 


Find the minimum distance between a point on the ellipse x^242y^2-1 and a 
point on this line. 


Solution: 
Step 1. Write out the Lagrange equations. 


We may consider the distance between a point on the ellipse and a point on 

the line as a function of four variables, two on the line and the other two on 
the ellipse such that it is optimized to be minimum. For algebraic simplicity 
we consider the function as the square of the distance rather than the actual 

distance. Thus, the function is given by 


F(X1, Y1, Xo, y2) = (X2 - x1)? + (yo - 1)? 


In this problem we have two constraints in order to minimize 


f(X1, Yi; X2, yo): 


à (X1, Yı, X2, yg) 534 *y1 74, 
92 (X2, ya, X2, yg) =X? +2 y? - 1. 


The Lagrange condition for two constraints: 


Vf(X1, Y1, X2, yg) = Aı Vg1(X1, Yı, X2, y2) 
+Az V 92(X2, yo, X2, yo) 


The gradient of f is 


Vf(x4, Y1, X2, Y2) = (-2 00 - x1), -2 (Y2 - 1), 
2 (X2 - X1), 2 (Y2 - ya) 
ae Y1, X2, y2) =(1, 1, 0, 0), 
Vgo(, Y1, X2, Y2) = (0, 0, 2x2, 4 y2). 


The Lagrange condition becomes: 


(-2 (x2 7x4), -2 (yo - Y1), 2 (X2 - x1), 2(y2 - a) 


So, the Lagrange equations to solve are 


-2 (X2 - X1) = À,, 


-2 (y2 - Yi) =A1, 
2 (X2 - X1) = 2 Az X2, 


2 (yo - y1) 422 yr, 


together with two constraints: 


{ X4 *y4 =4, 
X +2 yj? = 1. 


Step 2. Solve for ^t , À2 , X1, Y1, X2 Y2 , 


Solve[ {-2(x2-x1)==A1,-2(y2-y1)==A1,2(k2-x1)==2A2 x2,2(y2-y1)==4A2 
y2,x 1l+y1==4,x2%2+2y2%2==1}] 


Solve command returns all solutions including complex ones. Since, we 
only need real solutions we can add Reals option in Solve: 


Solve[ {-2(x2-x1)==A1,-2(y2-y 1)==A1,2(x2-x1)==2A2 x2,2(y2-y1)==4A2 


y2,x1*yl--4,x2^242y2^2—-1 } ,Reals]//Simplify 


So, there are two constrained critical points including the Lagrange 
multipliers at 


A, =4+ [2,%a=2+v6, 


1 


M EE NE ES me M -_|2 SENA MT 
X172 2g 2€ dyk 2 


Step 3. Second Derivative Test for constrained local extrema 
We construct the Lagrangian function using equation (5.7): 


L(A4, Az, X1, Yt, X2, Y2) = f GG, Y1, X2, y2) 
-À[g1 6X1, Y1, X2, y2) - C1] 
—Az [92(X1, Y1, X2, y2) - C2], 
L(A, Az, X4, Y1, X2, Y2) = (X2 - X) + (y2 - 1)? 
-À (X1 +y1)+4À1 -A> (x? +2 y2°) + A. 


By equation (5.8), the Hessian matrix of 7 is 


H LL (A, Aa, X1, Y1, X2, y2) = 


0M40M od 0x484 0y40M XD BA «YD DAY 


0MOyo O0A28yo2 0x18y2 Ayıdya 0x28yo Oy20yo 
To construct the Hessian matrix of -L we need the second partial derivatives: 


oie --(u*y)s4, Se =-(x2 +2 yo?) +1, 


OA, 

oL. oL 

24 7-2(09-7x)-A, 27 = 2 (X2 - X4) + 2 À2 X2. 
x4 OXx2 

SE ag 4E - 

840 "OA OA i 

GER 30 4 DR o 4 VPE Ia EE. 

0X4 04 a oy; 04 i Ox2 0A , Oyo 044 i 

etc... 


The computation is rather tedious, so we write a Mathematica module to 
complete the task. The result is given here: 


H L(A1, 22, X4, Y1, X2, y2) = 


0 0 -1-1 0 0 
0 0 00 -2x, j 
-1 0 2 0 -2 0 
-1 0 02 0 -2 
0 -2x -2 0 2-2% 0 
0 -4 y2 0 -2 0 2-445 


Clear[f,g1,g2,c1,c2,lagrangian] 


f[x1 ,yl ,x2 ,y2 [:4(x2-x1)^24(y2-y1)^2 


gl[xl ,y1l ,x2 ,y2 |:=xltyl 


gZ[xl yl ,x2 ;y2 [x2^2412y2^2 


lagrangian[Al ,A2 ,x1l ,yl ,x2 ,y2 [:-f[xLyl,x2,y2]-Al*(gl[x1,y1,x2,y2]- 
c1)-A2*(g2[x1,y1,x2,y2]-c2) 


(* Find the Hessian matrix of the Lagrangian function *) 
Module[ {n,k}, 


Clear[X1,X2,x1,y1,x2,y2]; 


X[3]=x1; 
X[4]=y1; 
X[5]=x2; 


X[6]-y2; 


Table[D[lagrangian[ X[1],X[2],X[3],X[4],X[5],X[6]] Xi], XDj]], £i, 1,n*k?, 
{j,1,n+k} ]//MatrixForm 


] 


We need to test all critical points. Here is a module to compute the Hessian 
matrix of the Lagrangian function at a critical point: 


(* Find the Hessian matrix of the Lagrangian function at a critical point *) 


Clear[hessianLagrangian | 


hessianLagrangian[lagrangian , 
iml ,m2 „al ,a2 ,a3 ,a4 }]:=Module[ {n,k}, 


Clear[41,A2,x 1,y1,x2,y2]; 


X[5]=x2; 
X[6]-y2; 


Table[D[lagrangian[ X[1],X[2],X[3],X[4], X[ 5], X[6] .X[1], X[j] ], ti, Lotky, 
{j,l,n+k} [/. {A1->m1,A2->m2,x1->al,y1l->a2,x2->a3,y2->a4} 


] 


Check critical point 1: 


A, =4+ | 3, a2 $« V6, 
ucc o wir acu: f ae a 
X,=2 aye 2*4 Jor Te’ 


We compute the Hessian matrix and the sequence of numbers, equation (5.9) 
for this critical point: 


hessianLagrangian[lagrangian, {4+Sqrt[3/2],3/4+Sqrt[6],2- 
1/(2Sqrt[6]),2+1/(2Sqrt[6]),-Sqrt[(2/3)],-C1/Sqrt[6]) } |//MatrixForm 


Since n=4 and k=2, there are 2 (n-k=2) sequence of numbers by equation 
(5.9): 


0 0 -1 —1 0 
0 0 0 0 2N213 
2 = Z 32 
(-1) ds = 1 0 2 0 2 - = 
-1 0 0 2 0 


0 2/2/3 -2 0 2-2 (8. v6) 


0 0 -1-1 0 0 
0 0 00 2¥2/3 24213 
-4 0 20 -2 0 

(-1)?dg=|-1 0 o2 0 E, 


0 2423 2 0 2-2(3+ 6) 0 
0 2/2/3 0 -2 0 2-4(3+ V6) 
= 204.767 


By Theorem 5.7.(ii1) the critical point: 


"DOE = ee — € 
(X1, Y1, X2, Y2) = 2 SIE ove" = Mi i| 


is a constrained saddle point. So, it is not the minimum point we are looking 
for. 


(* Compute d5 for critical point 1 *) 


Det[ { {0,0,-1,-1,03, {0,0,0,0,2 Sqrt[2/3]}, (-1,0,2,0,-21, (-1,0,0,2,01, {0,2 
Sqrt[2/3],-2,0,2-2 (3/4*Sqrt[6]) 1] 


(* Compute d6 for critical point 1 *) 
Det[ {{0,0,-1,-1,0,0},10,0,0,0,2 Sqrt[2/3],2 Sqrt[2/3]}, {-1,0,2,0,-2,0}, 


(-1,0,0,2,0,-23, {0,2 Sqrt[2/3],-2,0,2-2 (3/4 Sqrt[6]),01, (0,2 
Sqrt[2/3],0,-2,0,2-4 (3/44-Sqrt[6]) } /N 


Check critical point 2: 


_ A. - -— 2 — 
xucz2-Tgn7? 2 der Ian des > n 


We compute the Hessian matrix and the sequence of numbers for this critical 
point: 


hessianLagrangian|lagrangian, {4-Sqrt[3/2],3/4-Sqrt[6],2+1/(2Sqrt[6]),2- 
1/(2Sqrt[6]),Sqrt[2/3],1/Sqrt[6]} |//MatrixForm 


(* Compute d5 for critical point 2 *) 


Det[ { {0,0,-1,-1,0}, {0,0,0,0,-2 Sqrt[2/3]}, {-1,0,2,0,-2},{-1,0,0,2,0%, {0,-2 
Sqrt[2/3],-2,0,2-2 (3/4-Sqrt[6]) 1 1] 


(* Compute d6 for critical point 2 *) 
Det[ { {0,0,-1,-1,0,0$, {0,0,0,0,-2 Sqrt[2/3],-2 Sqrt[2/3]}, {-1,0,2,0,-2,0}, 


(-1,0,0,2,0,-21, {0,-2 Sqrt[2/3],-2,0,2-2 (3/4-Sqrt[6]),01, {0,-2 
Sqrt[2/3],0,-2,0,2-4 (3/4-Sqrt[6]) 1 /N 


and obtain 


(1 d; 2 75, (-1)? d = 108.767 


By Theorem 5.7. (1) the critical point: 


(X1, Y1, X2, y2) = 2% a= "r2 [2-4 kJ 


is a local minimum. Thus, it is verified that at these coordinates the distance 
between the line y=-x+4 and the ellipse x^24-2y^2-1 is minimum. 


The minimum distance 1s 1.9624. 
Sqrt[f[2-- 1/(2Sqrt[6]),2- 1/(2Sqrt[6]),Sqrt[2/3 ], 1/Sqrt[6]] /N 


Module[ plot,x1,y1,x2,y2], 
{x1,y1}={2+1/2Sqrt[6]),2-1/(2Sqrt[6])}; 
{x2,y2}={Sqrt[2/3],1/Sqrt[6]}; 


plot[1]-ContourPlot[ {x+y==4,x%2+2y*2==1}, {x,-1,4}, 
{y,-1,4},ContourStyle->AbsoluteThickness[2]]; 


plot[2]-Graphics| ( PointSize[0.03], Red,Point[ { {xl,y1}, {x2,y2}}]}]; 


plot[3]-Graphics| {AbsoluteThickness[2],Dashed,Line[{ 1x1,y1], 
{x2,y2}}]>]; 


Show[Array[plot,3]] 


] 


4 0 - 2 3 4 


Figure 5.17. The minimum distance between the line y=-x+4 and the ellipse 
x^2+2y^2=1. 


Here again we use FindMinimum and FindMaximum to verify our 
results: 


FindMinimum[ {f[x1,y1,x2,y2],g1[x1,y1,x2,y2]==4,82[x1,y1,x2,y2]>=1}, 
{x1,y1,x2,y2}] 


Sqrt[3.85012] 


The minimum of actual distance is V 9.85102 = 1.962 which is equal to 
our result to three decimal places. 


Example 5.16. Find the extrema of 
f(x,y)=(1 + x42 + x y)(1 + x42 + y^4), 


subject to the constraint x^2+y^2/4=1. 


Solution: 

Step 1. Write out the Lagrange equations. 
The Lagrange condition is 

Vf(x, y) -AVg(x, y). 

where 


-Ay? (1x xy) x (1? «y*) 


2 4,5 
vos y= ee 2: 


(18 «y^ (1 «y 


rate y= (s.t) 


and 


So, we solve the Lagrange equations: 


Ay (rx txy)+x(1+x? +y ^J -At. 


(1+x2 «y^ 


Clear[f,g] 


f[x_,y_]:=(1+x%2+x yy(1*x^2-—y^4) 


g[x ,y_]:=x42+y%2/4 


Grad[f[x,y ], {x,y},"Cartesian" |//Simplify 


Grad[g[x,y ], (x; y," Cartesian" |//Simplify 


Step 2. Solve for a , x, y. 


There are no close form solutions for this system of equations so we 
resort to numerical solutions using NSolve, with additional Reals option 
to obtain real values. 


NSolve[ 1Grad[f[x,y ], {x,y},"Cartesian"]==A Grad[g[x,y ], 
{x,y},"Cartesian"],g[x,y]==1}//Thread,Reals] 


or equivalently 


NSolve[ ((y-x^2 yt2 x y®4+y*5)/(1+x2+y*4)2==2)1 x,(-4 y^3 (1+x2+x 
y)*x (1*-x^2*y^4))/(1-x^2ty^4)^ 2-724 y/2,g[x,y]>=1},Reals] 


There are four constrained critical points: 


A, =-0.108124, x,=0.395591, y,--1.83685, 
Ap = -0.108124, x>=-0.395591, ya = 1.83685, 
A3 =0.0410612, x3=0.957548, y3=0.576545, 


À4 =0.0410612, x4=-0.957548, y, - -0.576545. 


Step 3. Second Derivative Test for constrained local extrema 


We construct the Lagrangian function using equation (5.7): 


L(A, x, y) - f(x, y) - A(g(x, y) - o) 


2 2 
L0 x ER) 


By equation (5.8), the Hessian matrix of 7 is 


HLA ) a? a? a? 
x = 
dad d 0A0x Ox0x Oyóx 
ear FL er 
OAdy OxOy OyO0y 
Itis found to be 
H L(A, x, y)= 
0 -2x 


8x2 (14x? «y) 4x (2 x+y) (try) 2 


= (2y To (re! " nd 


2 (1 +x2 ay! x 


Clear[lagrangian] 


-1+x4-8 x? y2 yt-12 x? yray® +8X y (- ty?) 


Y 


2 
~14x4-3 x? v2 y*-12 x2 y443 y9«8 x y? (+1 y^) 
( axat 
32y9(t+x2+xy) _ ay 12y? (t+x+x y) «y a 


(1 way? (1e? TX y y 


ET 2 


c=1; 


lagrangian[A_,x_,y_]:=f[x,y]-A*(glx,y]-c) 


(* Find the Hessian matrix of the Lagrangian function *) 
Module[ {n,k}, 
Clear[A,x,y]; 


n=2; 


X[3]=y; 


Table[D[lagrangian[ X[1],X[2],X[3]].X[1], X[j]]. {i,1,n+k}, 
{j,1,n+k} //Simplify//MatrixForm 


] 


Here is a module to compute the Hessian matrix of the Lagrangian function 
at a critical point: 


(* Find the Hessian matrix of the Lagrangian function at a critical point *) 
Clear[hessianLagrangian | 


hessianLagrangian[lagrangian ,ím ,a ,b }]:=Module[ {n,k}, 


Clear[A,x,y]; 


X[3]=y; 


Table[D[lagrangian[X[1],X[2],X[3] , X [1], X[j]], {1,1,nt+k}, 9, 1,n+k} ]/. {A- 
>m,x->a,y->b} 


] 


Find the Hessian matrix at critical points: 


Check critical point 1: 


A, =-0.108124, x = 0.395591, y, = - 1.83685 


We compute the Hessian matrix and the sequence of numbers for this critical 
point: 


hessianLagrangian[lagrangian, 
{-0.108124,0.395591,-1.83685 } //MatrixForm 


Since there are two variables and one constraint we have n=2 and k=1, 
respectively. So, there is 1 (n-k=1) sequence of number by equation (5.9): 


0 -0./91182 0.918425 


(-1)1d42-|-0.791182 0.381059 -0.0956321 
0.918425 -0.0956321 0.336009 
= 0.392776 


(* Compute d3 for critical point 1 *) 


(-1)*1*Detf { £0,-0.791182,0.918425}, {-0.791182,0.381059,-0.0956321}, 
(0.918425,-0.0956321,0.33600911] 


By Theorem 5.7 the critical point: 


(x1, y1) = (0.395591, 1.83685) 


is a constrained local minimum. Let us verify this by using 
FindMinimum and FindMaximum: 


FindMinimum[ {f[x,y],g[x,y]==1 }, { {x,0.4}, {y,-1.8}}] 


FindMaximun] {f[x,y],g[x,y]==1 3, { {x,0.4}, {y,-1.8}}] 


The results from FindMinimum and FindMaximum suggest that the 
critical point: 


(x1, y1) = (0.395591, -1.83685) 


is a constrained local minimum. 


Check critical point 2: 


Ap = -0.108124, x = -0.395591, y; = 1.83685 


Here again, we compute the Hessian matrix and the sequence of numbers for 
this critical point: 


hessianLagrangian[lagrangian, 
{-0.108124,-0.395591,1.83685 } |//MatrixForm 


(* Compute d3 for critical point 2 *) 
(-1)*1*Det[ { {0,0.791182,-0.918425}, {0.791182,0.381059,-0.0956321}, 
{-0.918425,-0.0956321,0.336009} 1] 


0 0.791182 -0.918425 
(-1)'d3=-] 0.791182 0.381059 -0.0956321 
-0.918425 -0.0956321 0.336009 


= 0.392776 


By Theorem 5.7 the critical point: 


(X2, y2) = (-0.395591, 1.83685) 


is also a constrained local minimum. Let us verify this by using 
FindMinimum and FindMaximum: 


FindMinimum[ {f[x,y],g[x,y]==1 }, { {x,-0.4}, fy,1.8}}] 


FindMaximun] {f[x,y],g[x,y]==1 }, { {x,-0.4}, fy,1.8}}] 


Check critical point 3: 
Àa =0.0410612, x3 = 0.957548, y3 = 0.576545 


hessianLagrangian[lagrangian, 
{0.0410612,0.957548,0.576545 } //MatrixForm 


(* Compute d3 for critical point 3 *) 


(-1)/1*Detf { {0,-1.9151,-0.288273}, {-1.9151,-0.445547,0.45233}, 
(-0.288273,0.45233,-2.4254911] 


0 -1.9151 -0.288273 
(-1)'d3=-| -1.9151 -0.445547 0.45233 
-0.288273 0.45233 -2.42549 
= -9.43221 


There is only one sequence of number. By using FindMinimum and 
FindMaximum it is verified that the critical point: 


(Xs, ya) = (0.957548, 0.576545) 


is a constrained local maximum. 


FindMaximun] {f[x,y],g[x,y]==1}, ((x,0.91,1y,0.5] 1] 


FindMinimum[1f[x,y].g[x.y]-71 }, { {x,0.9}, {y,0.5} 1] 


Check critical point 4: 
À4 = 0.0410612, x4, =-0.957548, y, = -0.576545 


hessianLagrangian[lagrangian, 
{0.0410612,-0.957548,-0.576545 } |//MatrixForm 


(* Compute d3 for critical point 4 *) 


(-1)/1*Detf {{0,1.9151,0.288273} {1.9151,-0.445547,0.45233}, 
(0.288273,0.45233,-2.425491] 


0 1.9151 0.288273 
(-1)'d3=-] 1.9151 -0.445547 0.45233 
0.288273 0.45233 -2.42549 
= -9.43221 


Using FindMinimum and FindMaximum, the critical point: 


(X4, ya) = (70.957548, -0.576545) 


is found to be a constrained local maximum. 


FindMaximun] {f[x,y],g[x,y]==1 ), { {x,-0.9}, {y,-0.5}}] 


FindMinimun] {f[x,y],g[x,y]==1 }, { £x,-0.91,1y,-0.5] 1] 


Let us summarize our results: 


Local minimum: 


A, =-0.108124, x, = 0.395591, y, =-1.83685, 
f(X;, y1) = 0.034277. 


Local minimum: 


Ap = -0.108124, x; = -0.395591, y; = 1.83685, 
f(X2, y2) = 0.034277. 


Local maximum: 


Az = 0.0410612, x3 = 0.957548, y; = 0.576545, 
f(X3, y3) = 1.21781. 


Local maximum: 


Aq = 0.0410612, x4 =-0.957548, ya = -0.576545, 
f(X4, ya) = 1.21781. 


f[0.395591,-1.83685] 
f[-0.395591,1.83685] 
f[0.957548,0.576545] 


f[-0.957548,-0.576545] 


Without using Lagrange Multipliers method we can also use 
FindMinimum command to search for local minimum: 


FindMinimum[(1f[x.y g[x.y]-715, {x,y} ] 


Indeed, Mathematica gives the same result for the second minimum. 


However, it only returns one local minimum. To verify our results, we can 
give additional information to Mathematica to search for other minimum 
near to the one obtained from our analysis: 


FindMinimun] {f[x,y],g[x.y]==1 }, { {x,0.35}, {y,-1.5}}] 


Similarly, for local maxima: 


FindMaximum[ {f]x,y],g[x,y]-=1},{x.y}] 


FindMaximun] {f[x,y],g[x,y]==1 }, { {x,-0.9}, fy,-0.5}}] 


Module[ {plot,x1,y1,x2,y2,x3,y3,x4,y4}, 
{xl,y1}={0.395591,-1.83685}; 
{x2,y2}={-0.395591,1.83685}; 
{x3,y3}={0.957548,0.576545}; 
{x4,y4}={-0.957548,-0.576545}; 
plot[1]-Plot3D[f[x,y |//Evaluate, {x,-3,3}, {y,-3,3}]; 


plot[2]-Graphics3D[  (Red,PointSize[0.025 |, Point[ | {xl,y1,f[xl,yl]}, 
{x2,y2,f[x2,y2]} }]},{Black,PointSize[0.025],Point[ { {x3,y3,f[x3,y3]}, 
U4,y4,f[x4,y4]] 513 5]; 


Show[Array[plot,2],AxesLabel->{"x","y","z"}, ViewPoint-> {-3,3,8} ] 


] 


2. 2 


Figure 5.18. The graph f(x,y)=(1 + x^2 + x yy(1  x^2 + y^4) subject to the 
constraint x^2+y^2/4=1 with local maxima (black) and minima (red) . 


Module[ {plot,x1,y1,x2,y2,x3,y3,x4,y4}, 
{x1,y1}={0.395591,-1.83685}; 

{x2,y2}={-0.395591,1.83685}; 

{x3,y3}={0.957548,0.576545}; 

{x4,v4}={-0.957548,-0.576545}; 

plot[ 1 ]=ContourPlot|f[x,y], {x,-3,3}, {y,-3,3 },Contours-> 
{0.034277,1.21781},ContourShading->None,ContourStyle-> 

{ {AbsoluteThickness[2],Green}, {AbsoluteThickness[2],Orange} } ]; 


plot[2]-ContourPlot[g[x,y ]|-71, {x,-3,3}, {y,-3,3},ContourStyle-> 
{AbsoluteThickness[2]}]; 


plot[3]-Graphics| f {Red,PointSize[0.02],Point[ | (x 1,y1], {x2,y2}}]}, 
{Black,PointSize[0.02],Point[ ( {x3,y3}, (x4,y4] 3 B4 E; 


Show [Array [plot,3]] 


] 
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Figure 5.19. The level curves of the function f(x,y)=(1 + x42 + x yy(1 + x^2 
t y^4) optimized at local maxima (orange curves) and local minima (green 
curves). They touch the level curve of the constraint g(x,y)=x^2+y^2/4=1 at 
their respective maxima (black) and minima (red). 


Example 5.17. Find the extreme values of 
f(x, y,z)=xtyt+z 


subject to the constraints z^3-z-E^x and x^2+y^2=1 by using 
FindMinimum and FindMaximum. 


Hint: this problem is rather difficult to solve using Lagrange Multipliers 
method due to the transcendental nature of the constraints. 


Solution: 


Clear[f,g1,g2] 
gl[x_,y_,z_|:=-E*x+z43+z 


g2[x ,y_,Z |:=x42+y*%2 


(* NSolve cannot find the solutions using Lagrange Multipliers method *) 
NSolve[ {Grad[f] x,y,z], {x,y,z},"Cartesian" |==A1 Grad[g1[x,y,z], 


{x,y,z},"Cartesian"]+A2 Grad[g2[x,y,z], 
{x,y,z},"Cartesian"],¢1[x,y,z]==0,¢2[x,y,z]==1}//Thread,Reals | 


FindMinimun] {f[x,y,z],g1[x,y,z]--0,g2[x,y,z]-=1}, {x,y,z} ] 


FindMaximum[ {f[x,y,z],g1[x,y,z]--0,g2[x,y,z]==1}, {x,y,z} ] 


The minimum value -1.01006 occurs at (x,y,z)= 
(-0.79473 1,-0.606962,0.391635). 


The maximum value 2.45745 occurs at (x,y,z)=(0.835099,0.5501,1.07225). 


Module[ {plot,point,points }, 
point[ 1 ]={-0.79473 1,-0.606962,0.391635}; 
point[2]={0.835099,0.5501,1.07225}; 


plot[1]-ContourPlot3D[f[x,y,z]//Evaluate, {x,-1,1},{y,-1,1}, 
{z,-1,2},Contours-> {-1.01006,2.45745 } ]; 


plot[2]=ContourPlot3D[g1[x,y,2]>=0//Evaluate, {x,-1,1},{y,-1,1}, 
{z,-1,2},Mesh->None,ContourStyle-> {Green,Opacity[0.2]}]; 


plot[3 |=ContourPlot3 D[ g2[x,y,z]==1//Evaluate, {x,-1,1},{y,-1,1}, 
{z,-1,2},Mesh->None,ContourStyle-> { Yellow,Opacity[0.3]) ]; 


points=Graphics3D[ { {Red,PointSize[0.02],Point[point[1]]}, 
{Blue,PointSize[0.03],Point[point[2]]}}]; 


Show[Array [plot,3],points,AxesLabel-^ ("x","y","z" 1] 


] 


Figure 5.20. The maximum and minimum of the function f(x,y,z)=x+y+z 
plotted as level surfaces of f(x,y,z)=-1.01006 and f(x,y,z)=2.45745, 
respectively; subject to the constraints z^3-z-E^x and x^2*y^2-1. 


Example 5.18. Optimization Inside a Region 
Find the extrema and value of the global extremum of the function 


f(x, y)7x^4-y^4-x^2-y^244 subject to the inequality constraint 
Q(X, y)=x*2+y%2-2x-3<=0. 


Solution: 


Geometrically, the constraint represents a region D in the xy-plane, with 
boundary defined by the curve g(x,y)=x*2+y*%2-2x-3=0. To solve this 
problem, we can break the constraint into two cases: 


(a) For points on the boundary curve: g(x,y)-x^2*y^2-2x-3-0. 


The curve x^2*y^2-2x-3-0 is actually a circle of radius 2 centered at (1,0), 
for we can re-write it as 


(x-1)^24y^2-4. 


We use Lagrange Multipliers method to find the critical points on the 
boundary and the extremum value of f(x,y). 


(b) For points inside the region: g(x,y)-x^2-*y^2-2x-3«0. 


We can use the techniques discussed in Section 5.2 Global Extrema to find 
the critical points and the extremum value of f(x,y). 


The true global extremum is found by comparing the two answers from part 
(a) and part (b). 


Clear[f,g] 
f[x ,y. |: *x^4*y^4-x^2-y^2--4 


g[x ,y. ;»x^2*y^2-2x-3 


ContourPlot[g[x,y], {x,-2,4}, {y,-3,3},ContourStyle-> 
{ AbsoluteThickness[3],Blue},Contours-> {0} ,ImageSize- 
>300,ContourShading-> {Hue[0.5],GrayLevel[0.8]},FrameLabel-> 


{"x", "y" } ] 


Figure 5.21. The region D is a disk of radius 2 centered at (1,0). 


(a) For points on the boundary curve: g(x,y)-x^2*y^2-2x-3-0. 

We use Lagrange Multipliers method to find the extreme values of 
f(x,y)7x^4--y^4-x^2-y^2414, 

subject to the given constraint: 


g(y)-x^2ty^2-2x-3-0. 


Step 1. Write out the Lagrange equations. 


Vf - (4x? -2x, 4y? - 2 y) 


’ 


vg=(2x-2,2y). 


Using Lagrange conditions: 
Vf(x, y) -AVg(x. y). 
the Lagrange equations are given by 


bosar ai 
4y? -2y =2Ày. 


Step 2. Solve for À , x and y with constraint using Solve command. 
Solve[ {4x%3-2x==A(2x-2),4y%3-2y==2A y,x^2+y^2-2x-3==0} Reals |//N 


We have four critical points on the boundary of the region: 


A; = 0.5; (x1, ¥1) =(-1, 0) 


3 


Az = 25.5; (x2, y2) = (3, 0) 


$ 


Az =0.195288; (x3, y3) = (-0.844548, -0.773074) 


’ 


Ag = 0.195288: (x4, ya) = (-0.844548, 0.773074) 


The extreme values corresponding to the critical points above are 


f(-1,0)=4, 


f(3,0)—76, 
f(-0.844548,-0.773074)-3.55501, 
f(-0.844548,0.773074)=3.55501. 


Whether it is a local maximum or minimum is not important at this moment 
as we seek global extrema. 


Clear[x1,y1,x2,y2,x3,y3,x4,y4] 
{x1,y1;=4{-1,0}; 

{x2,y2}={3,0}; 
{x3,y3}={-0.844548,-0.773074}; 
{x4,y4}={-0.844548,0.773074}; 
f[xLy1] 

f[x2,y2] 

f[x3,y3] 


f[x4,y4] 


Module[ {plot}, 


plot[1]-ContourPlot[g[x,y ], {x,-2,4}, {y,-3,3},ContourStyle-> 

{ AbsoluteThickness[3],Blue},Contours-> {0} ,ImageSize- 
>300,ContourShading-> ( Hue[0.5], GrayLevel[0.8] ) ,FrameLabel-> 
{ Pu "y" } I 


plot[2]-Graphics| {PointSize[0.03],Red,Point[ {{x1,y1},1x2,y2},{x3,y3}, 
{x4,y4 5315]; 


Show [Array [plot,2 ]] 


] 


Figure 5.22. The region D with boundary critical points. 


(b) For points inside the region: g(x,y)=x2+y*2-2x-3<0. 
We solve for the inequalities involving x and y using Reduce command: 


The solution is given by 


-1 


Note that the term inside the square root has to be positive, hence it yields 
the inequality for x. 


Reduce[g[x,y]«0,y] 


These are the points that satisfy the interior constraint g(x,y)«0. The points 
are located inside the shaded area of the graph below 


Plot[ {-Sqrt[3+2 x-x^2],Sqrt[342 x-x^2])//Evaluate, {x,-1,3},PlotStyle-> 
{ {AbsoluteThickness[3],Dashed,Blue} } ,Filling-> (1-7 (2) ),FillingStyle- 
>Hue[0.5],AxesLabel->{"x","y"}, AspectRatio->Automatic,ImageSize- 
>200] 


y 
2 


-2 


Figure 5.23. The open region of D : g(x,y)-x^2*y^2-2x-3«0. 


Our next task is to find the points inside the region of the disk bounded by 
the curve -Sqrt[3-2x-x^2] and Sqrt[342x-x^2], together with -1 


The critical points of f can be found by solving: 
Vf(x, y)=(4x°-2x, 4y? -2y)-0 


Solve[Grad[f[x,y |, {x,y},"Cartesian" |== (0,0) //Thread, {x,y} ] 


There are nine critical points as possible extrema: 


noe dest) nte de e) nel 


(xe, ye) - (7. 0), (xo, y) - (7. - 7). (x10, Y19) - (7. 5) 


N 


? 


(X11, ¥11) = (0, 0), (x12, yi) - (0. - 75), (x13, yi3) - (0, Xx] 


The reason for numbering the coordinates starting from 5 is because we have 
already obtained four critical points from part (a) above. Note that all these 
points are interior points of D . 


The extreme values corresponding to the critical points above are 


f(x11, yu) = (0, 0) = 
f(X12, Yı2) = (0, -5) =3.75, 


F(x13, yia) = (0, +) -3.75. 


Clear[x5,y5,x6,y6,x7,y7,x8,y8,x9,y9,x10,y10,x11,y11,x12,y12,x13,y13] 
{%5,y53=1-(1/Sqrt[2]),0}; 

{x6,y6}={-(1/Sqrt[2]),-C1/Sqrt[2])}; 

{x7,y7}={-C/Sqrt[2]), 1/Sqrt[2]}; 

{x8,y8}={1/Sqrt[2],0}; 

1x9,y9;-1U/Sqrt[2].-( /Sqrt[2]) 5; 

(x10,y101—(l/Sqrt[2], L/Sqrt[2]) ; 

&11,y11}={0,0}; 

{x12,y12}={0,-(1/Sqrt[2])}; 


fx13,y13}={0,1/Sqrt[2]}: 


U[x5,y5].f[x6,y6].f[x7, y 7].£[x8, y 8]. f[x9,y9 .f[x10,y 10]. f[ x y 1] ],fTx 12, y 12 
]f[x13,y13] V//N 


Module[ {plot}, 

plot[1]-Plot[ {-Sqrt[3+2 x-x^2],Sqrt[342 x-x2]!//Evaluate, 
{x,-1,3},PlotStyle->{ {AbsoluteThickness[3],Dashed,Blue} } ,Filling->{1-> 
{2\} FillingStyle->Hue[0.5],AxesLabel->{"x","y"}, AspectRatio- 


>Automatic,ImageSize->200]; 


plot[2]-Graphics| {PointSize[0.03],Point[ { {x5,y5}, {x6,y6}, {x7,y7}, 
{x8,y8},{x9,y9}, 1x10, y 105, (X Ly 1j, {x12,y12},{x13,y13} 5 ]] ]; 


Show [Array [plot,2 ]] 


] 


-2 


Figure 5.24. The region D with interior critical points. 


Comparing the results above, we have the global maximum occurs at 
(Xo, y2) = (3, 9) (this is a boundary point) with value of f(3,0)=76. 


The global minimum value of f is 3.5 at four interior critical points 


(x6, ve) =(-E,-4), 7, 7)=(-5, +) 


(Xo, yo - (77. rl (X10, yv) = (75. 5) 


Module[ {plot}, 


plot[1]-Plot3D[f[x,y |//Evaluate, {x,-1,3}, {y,-3,3},PlotRange- 
>All,AxesLabel->{"x","y","z"},PlotStyle->Opacity[0.3]]; 


plot[2]=Graphics3D[ { {Red,PointSize[0.02],Point[ {x2,y2,f[x2,y2]}]}; 
{Blue,PointSize[0.02],Point[ | {x6,y6,f]|x6,y6]}, {x7,y7,f[x7,y7]}, 
1x9,y9,f[x9,y9]j, 1x 10,y 10,f[x10,y 10]] 313, 
{Black,PointSize[0.02],Point[ ( {x1,y1,f]x1,y1]},1x3,y3,f[x3,y3]}; 

{x4 v4, f[x4,y4 |], 1x 5, y 5.f[x 5, y5]], 1x8, y S,f[x 8, y 8]] , (x 1 Ly 1l, f[x 1], y 11]], 
{x12,y12,f[x12,y12]}, {x13,y13,f[x13,y13]}}]} $ E; 


Show [Array [plot,2]] 


] 


Figure 5.25. Critical points of the function f(x,y)=x*4+y4-x’2-y*2+4 
subject to the inequality constraint g(x,y)=x*2+y%2-2x-3<=0. Global 
maximum (red) occurs at (X2, Y2) = (3, 0) . There are four global minima 


(blue) at (xe Ye) = Ta 72) (x7, yr) = Ta 7) i 
(Xo, y)- (772) ang 0 yo) - (75. Z | 


Chapter 6. Multiple Integration 


In this chapter we discuss integration involving functions of several 
variables. Such integrals are called multiple integrals which are a 
generalization of the notion of one variable integrals studied in first year 
calculus courses. In one variable, the domain of integration is simply an 
interval [a,b]. However, it is more complicated in the case of multiple 
integrals. It is the domain of integration that plays a prominent role in the 
multivariable case as we shall see in the rest of this chapter. 


Initialization 


Clear["Global’*"] 


SetOptions[Plot3D,PlotTheme->"Classic"]; 
SetOptions[ContourPlot3D,PlotTheme->"Classic"]; 
SetOptions[Plot,PlotTheme->"Classic",PlotStyle->AbsoluteThickness| 2 |]; 


SetOptions[ParametricPlot3D,PlotTheme-^"Classic",PlotStyle- 
>AbsoluteThickness[2]]; 


6.1 Integration in Two Variables 


We begin our discussion with simple domain of integration which forms a 
rectangular shape. 


6.1.1 The Integral over a Rectangle 


Suppose that (x,y)->f(x,y) is a non-negative-valued continuous function 
whose domain contains the closed rectangle 


D={ (x,y)|a<=x<=b,c<=y<=d }, 


or written as D=[a,b]x[c,d]. 


We shall use the term domain and region interchangeably since the domain 


of integration is the same region in R? over which the integration of f(x,y) 
takes place. 


The integral of a function of two variables f(x,y) are called double integral. 
It is denoted by 


JJpf. aA, 


When J Jof .y)dA exists, we say that f(x,y) is integrable on D. 


We state without proof the result of the Fubini's Theorem that the 
double integrals under certain assumptions can be calculated by using 
iterated integrals and, moreover, that the order of integration for the 
iterated integral does not matter. 


Theorem 6.1. Fubini's Theorem for Double Integrals 


Let f(x, y) be a continuous function defined over a rectangle domain D= 
[a,b]x[c,d]. The double integral of f over D is equal to the iterated integral 
given by 


(6.1) 
Sf WdA= fe JA fl, y)dy dx 
= E (x, y)dxdy 


To evaluate the iterated integral, for instance 
b d 
Im y) dy) dx 


First, hold x fixed and evaluate the inner integral with respect to y. This 
gives the result as a function in x alone. Then integrate the resulting 
function with respect to x. 


Geometrically, the double integral J Jt% y)dA defines the volume V of 
the solid region between the graph of a positive function z=f(x,y) and the 
rectangle D in the xy-plane given by 


V= fff y)dA 


If f(x,y) takes on both positive and negative values, the double integral 
defines a signed volume. A special case when f(x,y)=1, we have 


As[[j1dA 


where A is the area of the region D. 


2 = 
Example 6.1. Evaluate j| Jo* sinydA , where D=[-1,1]x[0,2] and shows 
that changing the integration order yields the same result, and thus verifies 
Theorem 6.1. 


Solution: 


Write 


i siny dA = baa siny dy dx 


= MP Sin ydy)dx 
-— ie ud 
= j -4X (-cos y| dx 


=2 L x? dx 
x=-1 


2 ii 4 
== X =- 
3 3 


Integrate[x^2 Sin[y], {x,-1,1}, {y,0,7} | 


Note the position of the limits of integration in the Integrate command. 
It follows the same positions as the iterated integrals. 


Next, we show that the change of order of integration for the rectangular 
domain does not alter the result. 


[x sinyd A= [f° sinydxdy 
=z |, oX le siny dy 
= - [y sinydy 


- 2 (_ "ad 
E cosy] =; 


Integrate[x^2 Sin[y], {y,0,7},{x,-1,1}] 
The graph of the function and the domain is given below: 


Module[ {f,range,vertex,plot}, 

f[x_,y_]:=x2 Sin[y]; 

range[1]={-1,1}; 

range[2]={0,7}; 

vertex[1]- {range[1][[1]],range[2][[1]],0}; 

vertex[2]= {range[1][[1]],range[2][[2]],0}; 

vertex[3]- {range[1][[2]],range[2][[1]],0}; 

vertex[4]= {range[1][[2]],range[2][[2]],0}; 

vertex[5]- trange[ 1 J[[1]],range[2 J[1]].f[range[1 ][[ 1]],range[2 [[1]]] 5; 


vertex[6]- trange[ 1 J| 1] range[2 |[2] | f[range[1 ][[1]],range[2][[2]]]}: 


vertex[7]={range[1][[2]],range[2][[1]],f[range[1 ][[2]],range[2][[1]]]}: 
vertex[8 ]- trange[ 1 J|[2] range[2 2] ]f[range[ 1 ][[2]],range[2][[2]]]}: 


plot[1]-Plot3D[f[x,y |, {x,-1,1},{y,0,7} ,PlotRange->{ {-1.5,1.5},{-1,4}, 
{0,1.5}},AxesLabel->{"x","y","z"}]; 


plot[2 |=Graphics3D[ {Red,PointSize[0.015],Point[ Array[vertex,8 |] |; 


plot[3]-Graphics3D[ { Dashed, Thickness[0.003],Line[ { {vertex[ 1],vertex[2] 
Lh {vertex[2],vertex[4]}, {vertex[4],vertex[3]}, {vertex[3],vertex[1]}}]}]; 


plot[4 ]=Graphics3 D[ { Dashed, Thickness[0.003],Line[ { (vertex[1],vertex[5] 
}, {vertex[2],vertex[6]}, {vertex[3],vertex[7]}, {vertex[4],vertex[8]}}]}]; 


Show [Array[plot,4 | | 


] 


Figure 6.1. The solid region between the function f(x, y)-x^2 sin y and the 
rectangle D=[-1,1]x[0,r] in Example 6.1. 


ba, 4^ 
Example 6.2. Evaluate x+y , where D={ (x,y)|0<=x<=2, 1<=y<=E 
|? 


Solution: 
J ha; dA = Sohn, dydx 


- [zgln(x + y. dx 


= [2 In +e) -In(x +1)] d x 


= [-x +e In(x +e) + xIn(x +e) 

+x - In(x +1) - x In(x + 1) 
= [(x +e) In(x +e) - (x + 1) In(x + 1)] 
= (2+e)In(2+e)-3ln3-e 


Integrate[1/(x+y),{x,0,2},ty, LE} ] 


We plot the the graph using the following module: 


Module[ {f,range, vertex,plot}, 
f[x_,y_]:=1/(xt+y); 

range[1]- (0,2); 

range[2]- ( LE]; 

vertex[1]- trange[1][[1]].range[2 ][[ 1]].05 ; 


vertex[2 |= frange[1 |[[1] |, range[2 ][[2]],0) ; 


vertex[3 |- {range[1][[2]],range[2][[1]].0}; 
vertex[4 |- {range[1][[2]],range[2][[2]].0}; 
vertex[5 |- trange[ 1 |[ 1] range[2 J|[ 1 ]]f[range[1 ][[ 1 ]]Àrange[2 [[1]]] 5; 
vertex[6]- trange[ 1 J|[ 1] range[2 || 2] | f[range[1 ][[1]],range[2][[2]]]}: 
vertex[7]- trange[ 1 [2] range[2 J| [ 1 ]]f[range[1 ]|2]],range[2 [[1]]] 5; 
vertex[8]- trange[ 1 J|[2] range[2 2] | f[range[ 1 ][[2]],range[2][[2]]]}: 


plot[1]-Plot3D[f[x,y], {x,0,2}, {y,1,E},PlotRange->{ {-0.5,2.5}, {0,3}, 
{0, 1 } } ,AxesLabel-> Mo ua AP } I 


plot[2 |=Graphics3D[ {Red,PointSize[0.015],Point[ Array[vertex,8 |] |; 


plot[3]-Graphics3D[ { Dashed, Thickness[0.003],Line[ { {vertex[ 1],vertex[2] 
}, {vertex[2],vertex[4]}, {vertex[4],vertex[3]}, {vertex[3],vertex[1]}}]}]; 


plot[4]-Graphics3D[ | Dashed, Thickness[0.003],Line[ { {vertex[ 1],vertex[5] 
}, {vertex[2],vertex[6]}, {vertex[3],vertex[7]}, {vertex[4],vertex[8]}}]}]; 


Show[Array[plot,4]] 


] 


x ? 


Figure 6.2. The solid region between the function f(x,y)=1/(x + y) and the 
rectangle D=[0,2]x[1,E] in Example 6.2 


Example 6.3. Find the volume of the solid region bounded on top by the 
plane 


z=x+3ytl, 


on the bottom by the xy-plane, and on the sides by the planes x=0, x=3, 
y-l, y=2. 


Solution: 
First we determine the domain of integration which is a rectangle given by 


D={ (x,y)|0<=x<=3,1<=y<=2 }. 


Module[ {f,range, vertex, plot}, 
f[x_,y_J:=xt+3y+1; 

range[1]7 10,31; 

range[2]- 11,23; 
vertex[1]={range[1][[1]],range[2][[1]],0}; 
vertex[2]={range[1][[1]],range[2][[2]],0}; 
vertex[3 ]={range[1! ][[2]],range[2][[1]],0}; 


vertex[4 ]- {range[ 1 ][[2]],range[2][[2]],0}; 


vertex[5 - trange[1][[1]],range[2][[1 ]]f[range[ 1 J| 1]range[2][[1]]] 5; 
vertex[6 - trange[1][[1]],range[2][[2]].f[range[1 J| 1 ]range[2][[21]] 5; 
vertex[7]- trange[1][[2] ,range[2][[ 1 ]]f[range[ 1 |[2] range[2][[1]]] 5; 
vertex[8 |= trange[1][[2] range[2][[2]].f[range[ ][[2]],range[2][[2]]]}; 


plot[1]- Plot3D[f[x, y], (x,0,31, £y, 1,23 ,PlotRange-7 | (-0.5,3.51, {0,3}, 
{0,11}},AxesLabel->{"x" "y", "z1]; 


plot[2]-Graphics3D[ {Red,PointSize[0.015],Point[ Array[vertex,8]]} ]; 


plot[3]-Graphics3D[ {Dashed,Thickness[0.003],Line[ { (vertex[1],vertex[2] 
}, {vertex[2],vertex[4]}, {vertex[4],vertex[3]}, {vertex[3],vertex[1]}}]!]; 


plot[4]-Graphics3D[ { Dashed, Thickness[0.003],Line[ { {vertex[ 1],vertex[5] 
V {vertex[2],vertex[6]}, {vertex[3],vertex[7]}, {vertex[4],vertex[8]}}]!]; 


Show[Array[plot,4]] 


] 


Figure 6.3. The solid region bounded on top by the plane z=x+3y+1, on the 
bottom by the xy-plane, and on the sides by the planes x=0, x=3, y=1, y=2. 


Thus, the volume of the solid region is 
3 [2 
V= f[pf(x, y)dA- oh“ *3y* 1)dydx 
=21 


Integrate[x+3y+1,{x,0,3},{y,1,2}] 


Example 6.4. Find the volume of the solid region bounded by the surface 
f(x,y)=2x^2+y^4 sin m x, 


the xy-plane, and the planes x=0, x-1, y=-1, y=2. 


Solution: 
The domain of integration is a rectangle given by 


D={ (x,y)|0<=x<=1,-1<=y<=2 }. 


Module| {f,range,vertex,plot}, 
f[x_,y_]:=2x2+y%4 Sin[z x]; 
range[1]={0,1}; 

range[2 |- 1- 1,2); 


vertex[1 |={range[ 1 |[[1] ,range[2 ][[1]],0) ; 


vertex[2]={range[1!][[1]],range[2][[2]].0}; 
vertex[3 |- {range[1][[2]],range[2][[1]].03; 
vertex[4 |- {range[1][[2]],range[2][[2]].0}; 
vertex[5 |- trange[ 1 [1] ],range[2 J|[ 1 ]]f[frange[1 ][[ LH ]],range[2 [[1]]] 5; 
vertex[6]- trange[ 1 [1] ],range[2 |[2]|f[range[1 ][[1]],range[2][[2]]]}: 
vertex[7]- {range[1!][[2]],range[2][[1]],flrange[1][[2]],range[2][[1]]]5; 
vertex[8]- trange[ 1 J|[2] | range[2 |2]].f[range[ 1 ][[2]],range[2][[2]]]}: 


plot[1]-Plot3D[f[x,y], (x.0,1]. {y,-1,2},PlotRange->{ (-0.5,1.5], {-1.5,2.5}, 
{0,20} } AxesLabel-> Ub euo A Aa } I 


plot[2 |=Graphics3D[ {Red,PointSize[0.015],Point[ Array[vertex,8]]}]; 


plot[3]-Graphics3D[ { Dashed, Thickness[0.003],Line[ { (vertex[1 ],vertex[2] 
\ {vertex[2],vertex[4]}, {vertex[4],vertex[3]}, {vertex[3],vertex[1]}}]}]; 


plot[4]-Graphics3D[ | Dashed, Thickness[0.003],Line[ { {vertex[ 1],vertex[5] 
\ tvertex[2],vertex[6]? , {vertex[3],vertex[7]}, {vertex[4],vertex[8]}}]}]; 


Show[Array[plot,4]] 


] 


tr 


Figure 6.4. The solid region bounded on top by the surface 
f(x,y)-2x^2*ty^4 sin n x, the xy-plane, and on the sides by the planes x=0, 
x-], y=-1, y=2. 


The volume of the solid region: 


V= [ine y)dA= fof (22 y sin zt x)dydx 


2244 
SH 


Integrate[2x^2+y^4 Sin[z x], {x,0,1}, {y,-1,2} ] 
6.1.2 Double Integrals over General Regions 


In previous section, we have considered only domains of integration 
with rectangular shape. Our next step is to define the integral of a 
function of two variables over an arbitrary region D in the plane whose 


boundaries are simple closed curves. A curve is simple if it does not 
intersect itself. Of such, there are infinitely many regions one can 
possibly imagine. Therefore we shall restrict our discussion in this book 
only certain type of regions, and in addition we will assume that the 
integrand f is continuous over the domain of integration. The types of 
regions we shall consider in this book are called elementary regions. 


Let us consider some simple regions as are defined below: 


Definition 6.2 


The region D in the plane is called elementary region if it can be 
described as a subset of R? of one of the following three types: 


Type 1 or vertically simple region (see Figure 6.6): 
(6.2) D={ (x,y)|ax=x<=b,y(x)<=y<=6(x) $, 


where a, b constants; both y and 6 are continuous functions on [a,b]. 
Type 2 or horizontally simple region (see Figure 6.8): 

(6.3) D={ (x,y)|a(y)<=x<=B(y),c<=y<=d $, 

where c, d constants; both a and p are continuous functions on [c,d]. 


Type 3 D is both type 1 and type 2 (see Figure 6.9 or 6.10). 


Using Definition 6.2 we can establish an important result below: 


Theorem 6.3 


Let D be an elementary region in R? as defined in Definition 6.2 and f(x,y) 
a continuous function over D. 


If D is of type 1, then 


(6.4) 


JJof dA= ie y)dydx 


If D is of type 2, then 


(6.5) 


[fof dA= Sr [fo Wax dy 


For type 1 elementary region, y(x) and ó(x) are the lower boundary and 
upper boundary curves, respectively. 


Where as in type 2 elementary region, a(y) and (y) are the left and right 
boundary curves, respectively. 


Since the domain of integration plays a crucial role in determining the 
integral, we provide Mathematica modules for visualizing elementary 
regions, viewRegionl and viewRegion2 for type 1 and type 2 regions, 
respectively. The parameters for these modules are given such that they 
are the same with those needed to enter into the Integrate command in 
order to compute the integral. 


(* Graph the shaded area of type one elementary region *) 


viewRegionl[1x ,a ,b j, 

{yf .g hopt ]:zModule[(boundaryCurvesj ,boundaryCurves-Plot[ {f,g 
}, {x,a,b},PlotStyle->{ (Blue, Thickness[0.006]}, 

{Red,Thickness[0.006]} } ,PlotRange->All,AxesLabel->{"x","y"} |; 


Show|boundaryCurves,Table[Graphics[ ( GrayLevel[0.8 |,Line| { {x,f}, 
{x.g} } ] } J; {x,a,b,(b-a)/50} ],opt] 


] 


(* Graph the shaded area of type two elementary region *) 


viewRegion2[1y ,c ,d j, 

{x_,f ,g },opts  ]:2Module[ {boundaryCurves} ,boundaryCurves=Parame 
tricPlot[Evaluate[ { {f,y},{g,yv}!],{y,c,d} ‚PlotStyle-> 
{{Blue,Thickness[0.006]},{Red,Thickness[0.006]} },AspectRatio- 
>Automatic,AxesLabel->{"x","y"}]; 


Show|boundaryCurves,Table[Graphics[ {GrayLevel[0.8],Line[ {{f,y}, 
{8.y} 313 1, ty,6,d,(d-c)/50} ],opts] 


] 


For instance, if the region D is of type 1, then by Theorem 6.3 the double 
integral takes the form of equation (6.4): 


If dA- IET qe y) dy dx 


The outer limits of this integral is 
x=a and x=b. 
and the inner limits of the integral is performed first which are 


y=y(x) and y=0(x). 


Such double integral in Mathematica is entered as 


Integrate[f[x,y], {x,a,b}, (y, Y(X),909); | 


To view the domain of this double integral we shall write 


viewRegionl [(x,a,b], (y,y(x),0(x)] ] 
Let us see some examples to illustrate the usage. 


Example 6.5. (a) Shade the area of the region D bounded by the curve 
y=1/x and y=Sqrt[x], and the line x=1 and x=3. Write the description of D. 


(b) Find the area of D. 


(c) Evaluate J lox" ydA 


, Where D is the region in part (a). 
Solution: 


This is a type 1 elementary region or vertically simple region according to 
Definition 6.2. 


Using ContourPlot we plot the curves to determine which one is the 
lower boundary and which is upper boundary curve. 


ContourPlot[ {y==1/x,y==Sart[x],x==1,x==3}//Evaluate, {x,0,4}, 
{y,0,2},Frame->False,Axes->True, AxesLabel->{"x","y"},ContourStyle-> 
{Blue,Red,Green, Black} ,PlotLegends->"Expressions" | 
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Figure 6.5. The boundary curves of the elementary region. 


So, the shaded area can be determined by using viewRegionl. 


viewRegion1[{x,1,3}, (y, 1/x,Sqrt[x]},AspectRatio->Automatic] 


15 2.0 2:5 3.0 


Figure 6.6. Type 1 elementary region (vertically simple region) described 
by D={ (x, y)|1<=x<=3, l/x<=y<=Sqrt[x] j. 


The domain of integration is given by 


D={ (x, y)| 1<=x<53,1/x<=y<=Saqrt[x] }. 


(b) 


Note that the parameters needed to supply to the viewRegion1 
command are the same with those we need to supply to the Integrate 
command. 


So, the area of D is 


[JG ^ fe, MED d x = 1.69882 


Integrate[1,{x,1,3}, (y, 1/x,Sqrt[x]} |//N 


(c) 


fpe ydA- fo [o y dydx-9 


Integrate[x^2 y, {x,1,3}, {y,1/x,Sqrt[x]} ] 


Example 6.6. Integrate the function f(x,y)=x+y over the region bounded by 
x+y=2 and y^2-2y-x-0. 


Solution: 
Step 1. Describe the domain of integration D. 


First, we plot the boundary curves to determine the region using 
ContourPlot. 


ContourPlot| {x+y==2,y*2-2y-x==0}//Evaluate, {x,-2,4},{y,-2,4},Frame- 
>False,Axes->True,AxesLabel->{"x","y"},PlotLegends->"Expressions"] 


Figure 6.7. The region D is bounded by x+y=2 and y^2-2y-x-0. 


The curves intersect where 
2-y=y"2-2y, 
which gives 


y=-1 and y-2. 


Solve[2-y==y”2-2y,y] 


By Definition 6.2, this is a type 2 elementary region or horizontally simple 
region. 


The limits of integration with respect to x is 
x=y2-2y and x=2-y, 

and the limits of integration with respect to y is 
y--] and y=2. 

Thus, the description of D is given by 


D={ (% y)ly*2-2y<=x<=2-y, -1<=y<=2 }. 


viewRegion2| {y,-1,2}, {x,y*2-2y,2-y} | 


Figure 6.8. Type 2 elementary region (horizontally simple region) D={ 
(x,y)ly*2-2y<=x<=2-y, -1<=y<=2 }. 


Step 2. Set up the iterated integral. 


_f2 [^y 2 _ 99 
fh(x+y)dA= ahy- Y dY dx = 28 


Step 3. Compute the iterated integral. 
Integrate [xty, {y,- 1 MA , {x,y^2 -2y,2-y} ] 


[N 3dydx 


1 
Example 6.7. Compute Jo 


Solution: 

Note that the limits of integration with respect to x is 
x-0 and x-l. 

The limits of integration with respect to y is 

y-0 and y-Sqrt[1-x^2]. 

So, the domain of integration D1 is given by 


D1 ={ (x,y)|0<=x<=1,0<=y<=Sqrt[1-x’2] }. 


With this description, clearly the region is of type 1 elementary region. 
So, we can sketch it using viewRegion1 module. 


viewRegion1[{x,0,1}, {y,0,Sqrt[ 1-x“2]},AspectRatio->1,ImageSize->300] 


0.2 0.4 0.6 0.8 1.0 


Figure 6.9. Type 3 elementary region. The region is both type 1 and type 2. 


Thus, 


1 1-x? 3 
Ts Mn 3dydx==" 


Integrate[3, {x,0,1},{y,0,Sqrt[1-x*2]} ] 


However, we can also describe the region as type 2 elementary region using 
the limits of integration as in the following 


D2 ={ (x,y)|0<=x<=Sqrt[1-y^2],0<=y<=1 }. 


D2 can be graphed using viewRegion2: 


viewRegion2| {y,0,1},{x,0,Sqrt[ 1-y*2]} ‚ImageSize->300] 


02 04 06 08 1.0 


Figure 6.10. Type 3 elementary region. The region is both type 1 and type 2. 


So, with new description D2 ‚the integral becomes 


SL 3dxdy =% 


y=0J x-0 4 


It yields the same result as we have expected. 


Integrate[3, 1y,0,1 5, (x, O,Sqrt[1-y^2]j ] 


The last example provides an initial view about change of order of 
integration when the domain is not a rectangle. Recall in Section 6.1.1 when 
the domain of integration is rectangle, the order in which we integrate has 
no significance. However, when the domain is not rectangle, then we must 
use the limits of integration in the original iterated integral to identify the 
region D over which the integration takes place, then change the order of 
integration by re-assigning the appropriate variables as we have done in 
Example 6.7. We shall look into more examples about changing the order of 
integration in the next section. Before doing that, here are some examples 
where the domains of integrations are not elementary. In most cases though, 
we can subdivide the regions into finitely many of elementary types. 


Example 6.8. Calculate the double integral of f(x,y)=x^2+y^2 over the 
region D, where D is the region in the first quadrant bounded by y=x, y=3x, 
and x y=3. 


Solution: 


First we need to describe the domain of integration D. To do so, we plot the 
boundary curves to determine the region using ContourPlot. 


plot-ContourPlot[ {y==x,y==3x,x y==3}, {x,-4,4}, {y,-4,4} ,Frame- 
>False,Axes->True,ContourStyle-> {Blue,Red,Green} ,PlotLegends- 
>"Expressions" | 


Figure 6.11.a The region D bounded by y=x, y=3x, and x y=3 


Note that the region is not elementary. 


Using the fact that double integrals is additive with respect to the domain, 


we can decompose D into two type 2 elementary regions, D1 and D2, 
respectively. The two subregions are divided by the horizontal line passing 
through the intersection point between the line y=x and the curve x y=3 in 
the first quadrant. 


So first, we find the intersection point between the line y=x and the curve x 
y=3: 


Substituting y=x into x y=3, we have 


x^2=3, 


which gives 
x=+Sqrt[3] and y=+Sqrt[3]. 


Since we consider only the region in the first quadrant, so the horizontal 
line that passes through this intersection point is y=Sqrt[3 ]. 


Hence, the double integral is decomposed into 


J Ip? *y^)dA- In (x*+y*) dA; + J Ip. +y’)dA2 


line=ContourPlot[ y==Saqrt[3 |, {x,-4,4}, {y,-4,4},Frame->False,Axes- 
>True,ContourStyle-> {Dashed,Red} ,PlotLegends->"Expressions" |; 


Show[plot,line | 


Figure 6.11.b The region D is decomposed into two subregions separated by 
the horizontal line y=Sqrt[3]. 


Consider the subregion Di. 


Let D1 be the subregion bounded by the line y=x, y=3x, and the horizontal 
line y-Sqrt[3]. The description Di is given by 


D1 ={ (x, y)ly/3<=x<=y,0<=y<=Sqrt[3] }. 


Module[ {text}, 


D1=viewRegion2[ {y,0,Sqrt[3]},{x,y/3,y},AspectRatio->1,ImageSize- 
7300]; 


text=Graphics[Text["D1", {0.7,1.2} |]; 


Show[D1,text] 


Figure 6.12. The region D1 bounded by y=x, y=3x, and y-Sqrt[3] 


For the subregion Di: 


ffo, o6 +y’)dAı = {v3 vua *Y)dxdy- - 


Integrate[x^2y^2, {y,0,Sqrt[3]}, (x. y/3,y 3] 


Next, consider the subregion D». 


Let D2 be the subregion bounded by the line y=3x, the curve x y=3, and the 
bottom line y=Sqrt[3]. 


The limits of integration are the bottom line y=Sqrt[3] and the intersection 
point between the line y=3x and the curve x y=3. 


To find this intersection point, we solve for y from these two equations: 
y=3x and x y=3 

y=3*3/y=9/y 

y^2-9, y=+3. 


For first quadrant, we choose y=3. 


So, the description of D» is given by 


D2 = (x yJly/3«-x«3ly,Sqrt[3]«-y«3 }. 


Module[ {text}, 

D2=viewRegion2| {y,Sqrt[3],3},{x,y/3,3/y},AspectRatio->1 ]; 
text=Graphics[Text["D2", {1,2.2}]]; 
Show[D2,text,AxesOrigin-> {0,0} PlotRange->{ {0,2}, {0,3}}] 


] 


2.5. 


F D2 
2.0; 


0.5; 


X 
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Figure 6.13. The region D2 bounded on the left and right by y=3x and the 
curve x y=3, respectively; horizontally by y=Sqrt[3] and y=3. 


For the subregion D2. 


Jh,“ +y°)dA = I s +y’)dxdy= E 


Integrate[x^2*y^2, {y,Sqrt[3],3}, (x, y/3,3/yj ] 


The double integral: 


ffo +y?) dA = ffs (x? +y?)dAr+ ffs (x? +y?)d Ad 


9 9 9 


Show[plot,D1,D2] 


Figure 6.14. The region D in the first quadrant is bounded by y=x, y=3x, 
and x y=3. 


f(x, y)dA 


Example 6.9. Calculate J Io for the function f given by 


f(x, y)=xty, 


and the region D is in the first quadrant that is below y=1+x”2 and to the 
left of y=5(x-1). 


Solution: 


To describe the domain of integration D, we plot the boundary lines to 
determine the region using ContourPlot. 


plot-ContourPlot[ {y==1+x72,y==5(x-1)},{x,0,2},1y,0,6},Axes- 
>True,ContourStyle->{Red,Blue},PlotLegends->"Expressions"] 


3| | =y i 
— y=5(x-1) 
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Figure 6.15. The region D is in the first quadrant that is below y=1+x^2 and 
to the left of y=5(x-1). 


D is not an elementary region. However, we can decompose it into two type 
1 elementary regions, D1 and D2 , respectively. The two subregions are 


divided by the vertical line passing through x=1. 
So, we have 
D1 ={ (x,y)|0<=x<=1,0<=y<=x^2+1 } 


and D» ={ (x,y)|1<=x<=2,5(x-1)<=y<=x/24+1 }. 


The two subregions are represented by the following graphs: 


Module[ {text}, 

D1=viewRegion1[ {x,0,1}, {y,0,x*2+1 }]; 
text=Graphics[Text["D1", 10.5,0.51 ]]; 
Show[D1,text,PlotRange->{ {0,2}, {0,6} }] 


] 


mn °F 
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Figure 6.16. D1 is of type 1 elementary region bounded by y=0 and 
y=x^2+1; vertically by x=0 and x=1. Di ={ (x,y) |0<=x<=1,0<=y<=x‘2+1 


Module[ {text}, 

D2-viewRegionl [1x,1,25,1y,5(x-1),x^241] |; 
text=Graphics[Text["D2", {1.3,2}]]; 
Show[D2,text,AxesOrigin-> {0,0} PlotRange->{ {0,2}, {0,6} } | 


] 


raaa °F 
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Figure 6.17. D2 is of type 1 elementary region bounded by y=5(x-1) and 
y=x^2+1; vertically by x=1 and x=2. D2 =! (x, y)|1<=x<=2,5(x-1) 
<=y<=x^2+1 } 


So, the double integral is given by 


JJp(x+y) A= J Jp (x+y) dA; + [[5,(x +y) dA 


_ 68 
15 


Integrate[x+y, 1x,0,1 3, 1y,0,x^271j |+Integrate[x+y, {x,1,2}, {y,5(x- 
1),x^2*11] 


Show[plot,D1,D2] 
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Figure 6.18. Region D is in the first quadrant that is below y=1+x”2 and to 
the left of y-5(x-1). 


Example 6.10. (a) Write an iterated integral to compute the volume under 
the hyperbolic paraboloid z-x^2-y^2--5 and over the region D given by 


D={ (x,y)|x^2+y^2<=4 |. 


(b) Evalute the integral. 


Solution: 


(a). Geometrically | Jof .y)dA represents the volume under the graph of 
f over D. 


To determine the description of D, we plot the disk given by x42+y*2<=4. 


ContourPlot[x“2+y”2, {x,-3,3}, {y,-3,3},ContourStyle->Dashed,Contours-> 
{4} ContourShading-> { Hue[0.5 ]|, GrayLevel[1 ]},FrameLabel-> 
{"x","y"} ImageSize->300] 


3r 
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Figure 6.19. Region D is a disk x^2+y^2<=4. 


The region D is both type 1 and type 2 elementary regions. So, we choose it 
to be type 1 elementary region whose description is given by 


D={ (x,y)|-2<=x<=2,-Sqrt[2-x^2]<=y<=Sqrt[2-x^2] }. 


The hyperbolic paraboloid is a surface that can be rewritten as 
z-f(x,y)7x^2-y^2-5. 


So, the iterated integral is 


dae 
J ofl, Yd A= feof nz Y #8) dy dx 


=207T 


(b) 
Integrate[x^2-y^2--5, {x,-2,2}, (y.- Sqrt[4-x^2 ,Sqrt[4-x^2 ]) ] 
6.1.3 Changing the Order of Integration 


In Section 6.1.1 we see that when the region of integration is a rectangle, 
the order in which we integrate does not matter and still yields the same 
result. In other words, we get the same result by a simple exchange of the 
limits of integration. However, in Example 6.7 we encountered a region 
which is both type 1 and type 2 elementary regions but not a rectangle. We 
could change the order of integration to compute the integral after giving an 
appropriate description of the region. This flexibility can be of advantage 
when changing the order of integration makes a difficult or even impossible 
calculation easier. Let us consider some examples to illustrate this point. 


Example 6.11. (a) Use Integrate command to compute the integral 
fo fax sin (y*) dy dx 


as it is written. Use Timing command to check how long it takes for 
Mathematica to deliver the answer. 


(b) Reverse the order of integration and evaluate the new iterated integral 
and note how long it takes for Mathematica to deliver the answer. 


Solution: 


Below is a short explanation about the Timing command: 
?Timing 
Timing[Integrate[x Sin[y%2],{x,0,3}, (y,x^2,91 ]] 


It takes some time in seconds to execute this integration depending on the 
resources of the computer. The result is 1/2 sin^2(81/2). 


(b) 


When changing the order of integration, it 1s helpful to draw the region as 
an aid to determine a description of the region. So, we plot the limits of 
integrations in the following: 


ContourPlot[ {x==0,x==3,y==x"2,y==9}, {x,0,4}, {y,0, 10} ,Frame- 
>False,Axes->True,AxesLabel->{"x","y"},ContourStyle-> 
{Black,Green,Blue,Red} ,PlotLegends->"Expressions",AspectRatio- 
>Automatic] 


Figure 6.20. The domain of integration D is bounded by the curve y-x^2 
and the horizontal line y=9; vertically by x=0 and x=3 


The original region is of type 1 elementary region given by 


D'={ (x,y)|(0<=x<=3,x42<=y<=9 } 


viewRegionl [1x,0,3), {y,x*2,9} ,AspectRatio->Automatic] 


| 051015202530" 
Figure 6.21. The region D'={ (x,y)|0<=x<=3,x’2<=y<=9 |. 


If we change the order of integration to first integrate with respect to y and 
then with respect to x, the description of the new region D becomes 


D={ (x,y)|0<=x<=Sart[y],0<=y<=9 j. 
Note that it is now a type 2 elementary region. We shall verify this using 


viewRegion2. 


viewRegion2| {y,0,9}, {x,0,Sqrt[y]},AspectRatio->Automatic | 
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Figure 6.22. The new region description is D={ 
(x,y)|0<=x<=Sqrt[y],0<=y<=9 }. 


Now, let us evaluate the integral using the new region description D: 


Timing[Integrate[x Sin[y”2],{y,0,9},{x,0,Sqrt[y]}]] 
This time it takes Mathematica to deliver the answer few times faster than it 


did in part (a). 


Example 6.12. (a) Use Mathematica to evaluate the following integral 


Ln 71/2 e° dx dy 


sin! y 
as It 1S written. 


(b) Reverse the order of integration and use Timing command to check 
how long it takes for Mathematica to deliver the answer. 


Solution: 


The domain of integration is a type 2 elementary region which description 
is given by 


D={ (x,y)|sin^-1 y<=x<=2/2, 0<=y<=1}. 


viewRegion2| {y,0, 1}, {x,ArcSin[y],7/2},Ticks-> { {0,/4,n/2} , Automatic } ] 
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Figure 6.23. The region D={ (x,y)|sin^-1 y<=x<=n/2, 0<=y<=1}. 


We evaluate the integral directly using Mathematica: 


P 71/2 e° dx dy 


sin! y 
Integrate[ E^Cos[x], {y,0,1}, {x,ArcSin[y],7/2 } ] 


However, Mathematica has not been able to evaluate the integral, so it 
returns the integral as it is written. 


(b) 


First, we plot the limits of integrations to determine a description of the 
region. 


ContourPlot[ {y==0,y==1,x==ArcSin[y],x==7/2}, {x,0,2}, {y,0,1.5},Frame- 
>False,Axes->True,AxesLabel->{"x","y"},ContourStyle-> 
{Black,Green,Blue,Red} ,PlotLegends->"Expressions",AspectRatio- 
>Automatic, Ticks-> { (0,1/4,1/2] , Automatic } ] 
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Figure 6.24. The limits of integration of the original integral: sin^-1 
y<=x<=n/2 and 0<=y<=1. 


Using Figure 6.24 the new description for our change of order of integration 
becomes 


D={ (x,y)|(0<=x<=2/2,0<=y<=sin x }. 


Now, it becomes a type 1 elementary region. Let us verify this using 
viewRegionl. 


viewRegion1[ {x,0,7/2}, {y,0,Sin[x]},Ticks-> | (0,1/4,1/2) , Automatic ] | 
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Figure 6.25. The new region description: D={ (x,y)|(0<=x<=n/2,0<=y<=sin 


x 


The integral after changing order of integration becomes 


m/2 f'sin x cos x TQ 
T^ vo € ^" dydxze-1 


Timing[Integrate[E^Cos[x ], {x,0,7/2}, {y,0,Sin[x]} ]] 


Mathematica can now evaluate this integral easily within fraction of 
seconds! 


6.2 Triple Integrals 


Let f(x,y,z) be a function of three variables. A triple integral is a 
straightforward generalization of double integrals. Instead of integration 


over a region in the plane R? , the domain of a triple integral is a solid 


region in space RÊ and the integrand is a function of three variables. First, 
we start with integral over box-shaped regions and then proceed to define 
integral over more general solid regions. 


6.2.1 The Integral over a Box 


Consider a box: 

W-[a,b]x[c.d]x[p.q] 

consisting of all points in R? such that 
ax=x<=b, c«-y«-d, p<=z<=q. 


To evaluate the triple integral over W we use the result from Fubini's 
Theorem for Triple Integrals as is stated in the following: 


Theorem 6.4. Fubini's Theorem for Triple Integrals 


Let f(x,y,z) be a continuous function defined over a box W= 
[a,b]x[c,d]x[p,q]. The triple integral of f over W is equal to the iterated 
integral given by 


(6.6) 


[Puts y, DAV = fe, fe. [8 f(x, y)dzdydx 


Furthermore, the iterated integral may be evaluated in any order. 


Recall from Section 6.1 a double integral represents a signed volume of the 
three-dimensional solid region between a graph z=f(x,y) and the region D in 
the xy-plane. However, the graph of a function f(x,y,z) of three variables 
resides in four-dimensional space, so a triple integral represents a four- 
dimensional volume. Only in special case where f(x,y,z)=1, we can interpret 
it as a volume of the solid region of the domain of integration: 


v-[ffytdv 


In many applications, triple integrals represent some physical quantities. 
For instance, if f(x,y,z) represents a mass density function, then the triple 
integral of f over W gives the total mass of W. 


Example 6.13. Calculate the triple integral: 


[[[,.x e ^* av 


where W-[0,2]x[0, 1 ]x[0,1 ]. 


Solution: 


The domain of integration is a box W whose description is given by 


W={ (x,y,z)|0<=x<=2,0<=y<=1,0<=z<=1 }. 
Using Theorem 6.4 the triple integral can be written as an iterated integral: 


xe/?2dV=[? [1 [! xe/??dazdydx 
W =0Jy=0 


z=0 


Step 1. Evaluate the inner integral with respect to z, holding x and y 
constant. 


E PET 
jh xe! 22 qz=--! xe | 
z-0 2 0 


Step 2. Evaluate the middle integral with respect to y, holding x constant. 


(he (1-e?)xe' dy- p -e?)x f o8 dy 
N -e?)(e-1)x 


Step 3. Evaluate the outer integral with respect to x. 
She ^* dv- : (1-e?)(e-1) fox dx 
- : (1-e?)(e- 1)x?] 
- (1-e?)(e- 1) 


2 
0 
JSIwxe’?7 dV =e-2-14 5. 


Integrate[x E*(y-2z), {x,0,2}, {y,0,1}, {z,0,1} ]//Expand 


6.2.2 Triple Integrals over Arbitrary Solid Regions 


In previous section, we see how to calculate triple integrals over a box- 
shaped region. Much like the case in double integrals, we seek to calculate 
integrals over arbitrary solid regions. However, we shall consider only 
certain types of elementary regions and treat integrals over more general 
regions by subdividing them into solid regions of elementary type. Thus, we 
need some definitions of elementary region in space which is given below: 


Definition 6.5 


The solid region W in space is called an elementary region if it can be 
described as a subset of R? of one of the following four types: 


Type 1: 
(a) 
W ={(x, y, Z) | a £ x Sb, y4(X) Sy < yo(X), zio, y) sz s zo(x, y) 


9 


where a, b constants; both Y1 and Y2 are continuous functions on [a,b]; both 


Z1 and Z2 are continuous functions on D = [a, b] x [y1, Y2] in the xy-plane 
(see Figure 6.26). 


Or 
(b) 
W ={(x, y, Z) |x«(y £ X £ xy, C S y <d, zx y) szszo(x, y} 


? 


where c, d constants; both X1 and X2 are continuous functions on [c,d]; both 


Z1 and Z2 are continuous functions on P = [X1; Xo] x [C, d] in the xy-plane 
(see Figure 6.27) 


Type 2: 
(a) 
W - ((x, y, Z) | x4(y, Z)<x<xıly, Z), ¥1(Z) S y $ y2(2), pszsq) 


] 


where p, q constants; both Y1 and Y2 are continuous functions on [p,q]; both 


X1 and X2 are continuous functions on D = lt; Y2] * [P, q] in the yz-plane 
(see Figure 6.29). 


Or 
(b) 
W - (( y, Z) | x«(y, Z) £ X «xo(y, Z), COSY sd, zi(y) sz < z2(y)} 


’ 


where c, d constants; both Z1 and 72 are continuous functions on [c,d]; both 


X1 and X2 are continuous functions on D =[¢, d] x [Z1, Z2] in the yz-plane 
(see Figure 6.31). 


Type 3: 
(a) 


W ={(x, y, Z) | X1(Z) SX £ X2(Z), W(X, Z) Sy $ y2(x, z), ps ZS} 


2 


where p, q constants; both X1 and X2 are continuous functions on [p,q]; both 


Y1 and Y2 are continuous functions on D = [X1, X2] *[P, 9] in the xz-plane 
(see Figure 6.33). 


Or 
(b) 
W ={(x, y, Z) | a £ x £b, y4(x, Z) Sy S$ yolx, Z), Z1(X) £ z < z2(x)} 


’ 


where a, b constants; both Z1 and 72 are continuous functions on [a,b]; both 


Y1 and Y2 are continuous functions on D = [@, b] *[21, Z2] in the xz-plane 
(see Figure 6.35). 


Type 4: W 1s all three types described above. 


Corresponding to the above types of region, the triple integrals can be 
calculated as iterated integrals as stated in the following theorem: 


Theorem 6.6 The triple integral of a continuous function f(x,y,z) over the 
solid region of 


Type 1: 
(a) 


W ={(x, y, Z) | aS x Sb, y4(x) Sy S$ yo(x), zoo y) £ Z < z2(x, y)} 


? 


where a, b constants; both Y! and Y2 are continuous functions on [a,b]; both 


Z1 and Z2 are continuous functions on P =[@, 6]*[/1, Y2] in the xy-plane, 
is equal to the iterated integral 


(6.7) 


[Sw fe y. dv = [ff tx, y, zz) aA 


- [b [2 Fzalx,y) 
T (x) Z=2Z4 (x, yh 06 y, z) dz dy dx 


(see Figure 6.26) 


(b) 
W ={(x, y, Z) | X1(y¥) £ X £ xo(y, CS y <d, 24(X, y) szs zo(x, y)} 


2 


where c, d constants; both X1 and X2 are continuous functions on [c,d]; both 


Z1 and Z2 are continuous functions on P = [X1, X2] x [C, d] in the xy-plane, 
is equal to the iterated integral 


(6.8) 


Stay, 2dv 2 f I" I eye) dz) dA 
= [lef ae a y,z)dzdxdy 


(see Figure 6.27) 


Type 2: 
(a) 
W ={(x, y, Z) | x4(y, Z) SX <S xy, 2), ys(Z) Sy S y2(2), pszsq} 


? 


where p, q constants; both Y1 and Y2 are continuous functions on [p,q]; both 


X1 and X2 are continuous functions on P = Yt; Y2] x [P; q] in the yz-plane, 
is equal to the iterated integral 


(6.9) 
- Xo(y, Z) 
fJ fu foc y. DAV = Sollen are y, z)dx) dA 
_ fs fv»2 Xo(y, Z) 
= Je=plyayy(z)dxexyly, af % Y» z)d x dy dz 
(see Figure 6.29) 
(b) 


W - ((x, y, Z) | xı(y, Z) SX € x2(y, 2, OS y <d, z(y) sz < z2(y)} 


? 


where c, d constants; both 41 and 72 are continuous functions on [c,d]; both 
X1 and X2 are continuous functions on D =[¢, d] x [Z1, Z2] in the yz-plane, 
is equal to the iterated integral 


(6.10) 


[Sw ty dv = ff ($2?) f(x, y, 2)dx)aA 


_ fd fzXy) fxoxy.z) 
u | UN ft x-x4(y, jf C ys Z) dx dz dy 


(see Figure 6.31) 


Type 3: 
(a) 
W ={(x, y, Z) | X1(Z) £ x $ X2(Z), yılX, Z) Sy £ y2(x, Z), ps zs qj 


? 


where p, q constants; both X1 and X2 are continuous functions on [p,q]; both 


Y1 and Y2 are continuous functions on P = [X1, X2] x [P, q] in the xz-plane, 
is equal to the iterated integral 


(6.11) 


SfJwfxy, 2dv= Jpn y, z)dy) dA 


xo(z) fy2(x, 2) 
hom kard be zy4(x, jf 06 y, Z) dydxdz 


(see Figure 6.33) 


(b) 
W ={(x, y, Z) | a Sx £b, ys(x, Z) Sy £ y2(x, Z), 21(X) SZ S Z2(x)} 


9 


where a, b constants; both 41 and 72 are continuous functions on [a,b]; both 
Y1 and Y2 are continuous functions on D = [@, b] *[21, 22] in the xz-plane. 


(6.12) 


Hi f(x, y, z)dv - ff (0202 f(x, y, z)dy)dA 


— [b (22(x) py2(x, 2) 
~ ba a y=y1(X, jf 06 y, Z) dydzdx 


(see Figure 6.35) 


Example 6.14. (a) Draw the solid region whose volume is given by the 
iterated integral 


5 0 al fo az dy dx 


(b) Evaluate the integral in part (a). 


(c) Rewrite the integral using the integration order 72 d X d y and draw the 
solid. 


(d) Evaluate the integral in (c) and verify the result with the one obtained in 


(b). 


Solution: 

(a) 

The solid region W is given by 
W={(x,y,Z)|0<=x<=3,0<=y<=Sart[9-x”%2],0<=z<=6-x-y}. 


Clearly, W is type 1.(a) elementary solid region by Definition 6.5, where D 
is elementary region of type 1 in the xy-plane by Definition 6.2: 


D={(x,y)|(0<=x<=3,0<=y<=Sqrt[9-x"2]}. 


Note that D is a circle of radius 1 centered at the origin in the first quadrant. 


To draw the solid region we write a module viewSolidla whose 
parameters are the same as those entered into the Integrate command: 


(* Draw the solid of type 1.(a) elementary region *) 
viewSolidla[íx ‚a ,b }.{y f.g }.{z „F ,G },opts  [- 
Module[ {u,v,xx,yy,surfs,pplot}, 

xx=atu*(b-a); 

yy=ftv*(g-f)/.x->xx; 

surfs={ {x,y,F},{x,y,G} }/.{x->xx,y->yy}; 


pplot=ParametricPlot3 D[ Evaluate[surfs], {u,0,1}, {v,0,1},PlotStyle-> 
{Blue,Red},AxesLabel->{"x","y","z"}]; 


Show[pplot, Table[Graphics3D[ ( GrayLevel[0.8],Line[surfs |; ],{u,0,1,0.05}, 
1v,0,1 3 ], Table[ Graphics3D[ (GrayLevel[0.8 |,Line[surfs |) ], {u,0,1}, 
{v,0,1,0.05} |,opts] 


] 


Module[ {plot,text}, 

plot[1]=viewRegion1[ {x,0,3}, {y,0,Sqrt[9-x%2]},AspectRatio->Automatic |; 
text=Graphics[Text["D", {1.3,1.5}]]; 

plot[1]-Showg[plot[1 ],text]; 


plot[2]=viewSolidlal {x,0,3}, 1y,O,Sqrt[9-x^2]1,12,0,6-x-y] |; 


GraphicsGrid[ {Array[plot,2]} ‚ImageSize->600] 


Figure 6.26. The region D={(x,y)|(0<=x<=3,0<=y<=Saqrt[9-x%2]} (left) and 
the solid region W={(x,y,z)|0<=x<=3,0<=y<=Sart[9-x%2],0<=z<=6-x-y} 
(right) of type 1.(a). 


(b) 


3 9-x? 6-x-y "E 
I; y=0 z=0 dzdydx 9 (3 Tt -4) 


Integrate[1,{x,0,3}, (y, 0, Sqrt[9-x^2]5, {z,0,6-x-y} ] 


(c) 


Using Figure 6.26 we can describe the region D as 
D={(x,y)|(0<=x<=Sart[9-y"2],0<=y<=3 }. 

So, by Definition 6.5 W is of type 1.(b) as described by 
W={(x,y)|0<=x<=Sart[9-y*2],0<=y<=3,0<=z<=6-x-y}. 


The integral becomes 


I V9-y [o “"dzdxdy 


y=0Jx=0 


Similarly we have a module viewSolid1b to draw the solid region and 
again the module takes as parameters that are the same as those 
supplied to the Integrate command: 


(* Draw the solid of type 1.(b) elementary region *) 


viewSolidlb[ {y_,a_,b j,íx f.g }, 
{z_,F_,G_},opts _|:=Module[ {u,v,xx,yy,surfs,pplot}, 


yy=atu*(b-a); 
xx=ft+v*(g-f)/-y->yy; 
surfs- ( {x,y,F}, {x,y,G} V. {x->xx,y->yy}; 


pplot=ParametricPlot3 D[ Evaluate[surfs], {u,0,1}, {v,0,1},PlotStyle-> 
{Blue,Red} |; 


Show] pplot, Table[Graphics3D] ( GrayLevel[0.8],Line[surfs |) ], {u,0,1,0.05}, 
{v,0,1}],Table[Graphics3D[ {GrayLevel[0.8],Line[surfs]} ],{u,0,1}, 
{v,0,1,0.05} ],AxesLabel->{"x","y","z"},opts] 


Module[ {plot,text}, 


plot[ 1 ]=ContourPlot[x==Sqrt[9-y”2],1x,0,3},{y,0,3},Frame->False,Axes- 
>True,AxesLabel->{"x","y"}]; 


plot[ 1]=viewRegion2[ {y,0,3},{x,0,Sqrt[9-y*2]},AspectRatio->Automatic |; 
text=Graphics[Text["D",{1.3,1.5}]]; 

plot[1]-Showg[plot[1 ],text |; 

plot[2 |=viewSolid1b[{y,0,3}, (x, 0, Sqrt[9-y^2 ]], {z,0,6-x-y | |; 


GraphicsGrid[ {Array[plot,2]} ,.ImageSize->600] 
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Figure 6.27. The region D={(x,y)|(0<=x<=Saqrt[9-y”2],0<=y<=3} (left) and 
the solid region W={(x,y)|0<=x<=Sart[9-y*2 ],0<=y<=3 ,0<=z<=6-x-y} of 
type 1.(b). 


Note that although the geometric figures in both Figure 6.26 and Figure 
6.27 are the same as they should be, their domain descriptions are different. 


(d) 
aan ise y | es "dzdxdy -$ (31-4) 


Integrate[1, {y,0,3 }, (x, 0, Sqrt[9-y^2]5, (,0,6-x-y] ] 
Both integrals yield the same result as they should. 


Example 6.15. (a) Draw the solid whose volume is given by the iterated 
integral: 


5 pues iud dzdydx 


(b) Evaluate the integral in part (a). 


(c) Rewrite the integral using the integration order d X d Y dZ and draw the 
solid. 


(d) Evaluate the integral in (c) and verify the result with the one obtained in 


(b). 


Solution: 

(a) 

The solid region W is given by 
W={(x,y,Z)|0<=x<=2,2x<=y<=4,0<=z<=Sart[y*2-4x*%2]}. 


By Definition 6.5 W is type 1.(a) elementary solid region, where D is 
elementary region of type 1 in the xy-plane by Definition 6.2: 


D={(x,y)|0<=x<=2,2x<=y<=4}. 


To draw the solid region we use the module viewSolidla: 


Module[ {plot,text}, 

plot[1]=viewRegion1[ {x,0,2}, {y,2x,4},AspectRatio->Automatic |; 
text=Graphics[Text["D", {0.7,3} |]; 

plot[1]-Showg[plot[1 ],text]; 


plot[2]=viewSolidlal {x,0,2}, {y,2x,4}, (z,0, Sqrt[ y^2-4x^2]) , ViewPoint-> 
t l 2, l } IF 


GraphicsGrid[ {Array[plot,2]} ‚ImageSize->600] 


] 


tw 


x 
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Figure 6.28. The region D={(x,y)|0<=x<=2,2x<=y<=4} (left) and the solid 
region W-((x,y,z)|0«—x«-2,2x«-y«-4,0«-z«-Sqrt[y^2-4x^2]) (right) of 
type 1.(a). 


(b) 
Bol. ^ azayax - 82 


x=0 


Integrate[ 1, {x,0,2}, {y,2x,4}, (z,0, Sqrt[ y^2-4x^2]] | 


(c) 


We want to rewrite the integral using the integration order d X d y AZ | so, 
the solid becomes elementary region of type 2.(a) by Definition 6.5. In this 
case, D is the region in the yz-plane, where the equation relating y and z can 
be obtained by setting x=0 in z-Sqrt[y^2-4x^2]. 

Thus, y=Z. 

So, D is described by (Figure 6.29-left) 

D={(y,2)|2<=y<=4,0<=2<=4}. 


The variable x in terms of y and z can be obtained from the surface equation 
z-Sqrt[y^2-4x^2]. 


x=1/2 Sqrt[y^2-z^2]. 
Thus, the description of W is given by (Figure 6.29-right) 
W- {(%Y,Z) |0<=x<= 1/2 Sqrt[y^2-z^2] „2<=y<=4,0<=2<=4} ; 


The integral becomes 


Nue 
4 4 y^-z 
BN m E dx dy dz 


For the purpose of viewing the solid region of type 2.(a) we provide a 
module called viewSolid2a defined below: 


(* Draw the solid of type 2.(a) elementary region *) 


viewSolid2a[(z ,a ,b },{y f.g}, 
(ix ,F ,G_},opts _|:=Module[ {u,v,zz,yy,surfs,pplot}, 


zz=atu*(b-a); 


yy=ftv*(g-f)/.z->zz; 
surfs={ AA , {G,y,z} Ve {z->Abs[zz] ‚y->Abs[yy] } ; 


pplot=ParametricPlot3 D[ Evaluate[surfs], {u,0,1},{v,0,1},PlotStyle-> 
{Blue,Red} |; 


Show] pplot, Table[Graphics3D] ( GrayLevel[0.8],Line[surfs |; ], {u,0,1,0.05}, 
{v,0,1}],Table[Graphics3D[ (GrayLevel[0.8 |,Line[surfs |) ], {u,0,1}, 
{v,0,1,0.05} ],AxesLabel->{"x","y","z"} opts] 


] 


Module[ {plot,text}, 


plot[1]=viewRegion1[ {z,0,4}, {y,z,4},AxesLabel-> ("Z"," y", AspectRatio- 
>Automatic]; 


text=Graphics[Text["D", {1,2.5} |]; 
plot[1]-Showg[plot[1 ],text]; 


plot[2 |=viewSolid2a| {z,0,4}, {y,z,4},{x,0,1/2 Sqrt[y^2-z^2]), ViewPoint-> 
{- l 2, l } 1: 


GraphicsGrid[ {Array[plot,2]} ‚ImageSize->600] 


] 
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Figure 6.29. The new region description D={(y,z)|z<=y<=4,0<=z<=4} (left) 
and the solid region of type 2.(a) W={(x,y,z)|0<=x<=1/2 Sqrt[y^2- 
2/2 |,z<=y<=4,0<=z<=4} (right). 


Note that we have used viewRegionl to draw the region D by replacing 
the horizontal axis by z instead of x. And also the option AxesLabel-> 
{"z"","y"} to overwrite the default AxesLabel->{"x"","y"}. 


(d) 


4 [4 pave 8 
2 -8n 
Iu: EA dxdydz- ^ 


Integrate[1,{z,0,4}, {y,z,4},{x,0,1/2 Sqrt[y^2-z^2]) ] 


The integral using the new region description gives the same result as it 
should. 


Example 6.16. (a) Draw the solid whose volume is given by the iterated 
integral 


I ffo dzdx dy 
(b) Evaluate the integral in part (a). 


(c) Rewrite the integral using the integration order dXdZdy and draw the 
solid. 


(d) Evaluate the integral in (c) and verify the result with the one obtained in 


(b). 


Solution: 

(a) 

The solid region W is described by 
W={(x,y,z)|y*®2<=x<=1,-1<=y<=1,0<=z<=1-x}. 


By Definition 6.5 this is type 1.(b) elementary solid region, where D is 
elementary region of type 2 in the xy-plane by Definition 6.2: 


D= {(x,y)ly“2<=x<= I ” l<=y<=1 } ` 


Let us draw the solid region using module viewSolid1b: 


Module[ {plot,text}, 

plot[1]=viewRegion2[ {y,-1,1},{x,y*2,1},AspectRatio->Automatic]; 
text=Graphics[Text["D", {0.7,3} |]; 

plot[1]-Showg[plot[1 ],text]; 

plot[2]=viewSolidib[ {y,-1,1},{x,y*2,1}, {z,0,1-x}, ViewPoint-> {-0.5,-2,1}]; 


GraphicsGrid[ {Array[plot,2]} ,.ImageSize->600] 
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Figure 6.30. The region D={(x,y)|y42<=x<=1,-1<=y<=1} (left) and the 
solid region W={(x,y,z)|y“2<=x<=1,-1<=y<=1,0<=z<=1-x} (right) of type 
1.(b). 


(b) 


1 p tex _8 
iam B e dzdxdy == 


Integrate 1, {y,-1,1},{x,y%2,1},{z,0,1-x}] 


(c) 


We want to rewrite the integral using the integration order d X dZ d'y | so, 
the solid becomes elementary region of type 2.(b) by Definition 6.5. In this 
case, D is the region in the yz-plane, where the equation relating y and z can 
be obtained by substituting x=y”2 into 


z=1-x. 
Thus, z=1-y”2, 


We can consider the graph z-1-y^2 as the "shadow" of the solid lying on 
the yz-plane (try moving Figure 6.31-right with your mouse to view the 
"vertical" axis z vs the "horizontal" axis y). 


So, the new D is described by (Figure 6.31-left): 
D=(yz)|-1<=y<=1,0<=z<=1-y"2}. 


The variable x in terms of y and z are the lower and upper boundary graphs 
(respectively) given by 


Xc-y 2, 
x=1-z. 
Thus, the new description of W is 


W={(x,y,z)|y^2<=x<=1-z,-1<=y<=1,0<=z<=1-y^2}. 


The integral becomes 


LIES E qu "^dxdzdy 


For the purpose of viewing the solid region of type 2.(b) we provide a 
module called viewSolid2b defined below: 


(* Draw the solid of type 2.(b) elementary region *) 


viewSolid2b[1y ,a ,b },{z .f ,g }, 
(ix ,F ,G_},opts ]:=Module[ {u,v,zz,yy,surfs,pplot}, 


yy-atu*(b-a); 
zz=f+V*(g-f)/.y->yy; 
surfs={ {Fy,z},{G,y,z}}/.{z->zz,y->yy}; 


pplot=ParametricPlot3D[Evaluate[surfs], {u,0,1},{v,0,1},PlotStyle-> 
{Blue,Red} |; 


Show[pplot, Table[Graphics3D[ {GrayLevel[0.8],Line[surfs]} ],{u,0,1,0.05}, 
{v,0,1}],Table[Graphics3D[ (GrayLevel[0.8 |, Line[surfs |) ], {u,0,1}, 
{v,0,1,0.05} ],AxesLabel->{"x","y","z"} opts] 


] 


Module[ {plot,text}, 


plot[1]=viewRegion1[ {y,-1,1},{z,0,1-y“2},AxesLabel-> 
{"y","z"} AspectRatio->Automatic]; 


text=Graphics[Text["D",{0.1,0.5}]]; 
plot[1]=Show/[plot[ 1 ],text]; 


plot[2 |=viewSolid2b[ {y,-1,1},{z,0,1-y*2}, {x,y%2, 1-z}, ViewPoint-> 
{-0.5,-2, I HH; 


GraphicsGrid[ {Array[plot,2]} ‚ImageSize->600] 
] 


Figure 6.31. The new region description D-((y,Z)|-1«-y«-1,0«-z«-1-y^2] 
(left) and the solid region W-1(x,y,z)|y^2«—x«-1-z,-1«-y«-1,0«-z«-1- 
y^2 (right) of type 2.(b). 


(d) 


LAN ir br FEES ^dxdzdy 


Integrate[ I , {y,- 1 , 1 } , {Z,0, l-y^2} , {x,y^2, 1-z}] 


Example 6.17. (a) Draw the solid whose volume is given by the iterated 
integral 


4 (4—-x)/2 f (12-3 x-6 y)/4 
js Á : dzdydx 


(b) Evaluate the integral in part (a). 


(c) Rewrite the integral using the integration order dy AX AZ and draw the 
solid. 


(d) Evaluate the integral in (c) and verify the result with the one obtained in 


(b). 


Solution: 

(a) 

The solid region W is given by 

W={(x,y,Z)|(0<=x<=4,0<=y<=(4 - x)/2,0<=z<=(12 - 3x - 6y)/4}. 


By Definition 6.5 W is type 1.(a) elementary solid region, where D is 
elementary region of type 1 in the xy-plane by Definition 6.2: 


D={(x,y)|0<=x<=4,0<=y<=(4 - x)/2}. 


To draw the solid region we use the module viewSolid 1a: 


Module[ {plot,text}, 

plot[1]=viewRegion1[ {x,0,4}, {y,0,(4-x)/2},AspectRatio->Automatic]; 
text=Graphics[Text["D", {1,0.7} |]; 

plot[1]-Showg[plot[1 ],text]; 


plot[2]>viewSolidlal {x,0,4}, {y,0,(4-x)/2}, {z,0,(12-3x-6y)/4}, ViewPoint-> 
{- 1 2, 1 } iP 


GraphicsGrid[ {Array[plot,2]} ‚ImageSize->600] 


Figure 6.32. The region D={(x,y)|(0<=x<=4,0<=y<=(4 - x)/2} (left) and the 
solid region W={(x,y,z)|0<=x<=4,0<=y<=(4 - x)/2,0<=z<=(12 - 3x - 6y)/4} 
(right) of type 1.(a). 


(b) 


4 [(4-)2 f (12-3 x-6 y)/4 _ 
I3 y=0 z-0 dzdydx=4 


Integrate[1, {x,0,4}, {y,0,(4-x)/2}, {z,0,(12-3x-6y)/4} | 


(c) 


To rewrite the integral using the integration order d Y d X dZ | which is 
integration over a solid region of type 3.(a) by Definition 6.5, we first need 
to find the new description for D in the xz-plane. 


From Figure 6.32-right the variable x and z are related by setting y=0 into 
the function z=(12 - 3x - 6y)/4. 


So, z=(12 - 3x)/4, x=(12 - 4z)/3. 
Thus, the new region D is described by 
D={(x,z)|(0<=x<=(12 - 4z)/3,0<=z<=3}. 


Next, the integration variable y in terms x and z is obtained from the 
function z=(12 - 3x - 6y)/4. 


y=(12 - 3x - 4z)/6. 
Hence, the new description of W is given by 


W={(x,y,Z)|0<=x<=(12 - 4z)/3,0<=y<=(12 - 3x - 4z)/6,0<=z<=3}. 


The integral becomes 


3 r(12-42)/3 f (12-3 x-4 z)I6 
ES hie h dydxdz 


For the purpose of viewing the solid region of type 3.(a) we provide a 
module called viewSolid3a defined below: 


(* Draw the solid of type 3.(a) elementary region *) 


viewSolid3a[ {z_,a_,b },{x_,f ,g }, 
{y_,F_,G_},opts _]:=Module[ {u,v,xx,zz,surfs,pplot}, 


zz=atu*(b-a); 
xx=f+v*(g-f)/.z->zz; 
surfs- ( {x,F,z},{x,G,z}}/. {x->xx,z->zz}; 


pplot=ParametricPlot3 D[ Evaluate[surfs], {u,0,1}, {v,0,1},PlotStyle-> 
{Blue,Red} |; 


Show[pplot, Table[Graphics3D] ( GrayLevel[0.8],Line[surfs |; ], {u,0,1,0.05}, 
1v,0,1 3 ], Table[ Graphics3D[ {GrayLevel[0.8],Line[surfs]} ], {u,0,1}, 
{v,0,1,0.05}  AxesLabel-» ("x","y","z"i.opts] 


] 


Module[ {plot,text}, 


plot[1]=viewRegion1[ {z,0,3}, {x,0,(12-4z)/3} , AspectRatio- 
>Automatic,AxesLabel->{"z","x"}]; 


text=Graphics[Text["D",{1,1.3}]]; 


plot[1]-Showg[plot[1 ],text]; 


plot[2]>viewSolid3al {z,0,3}, {x,0,(12-4z)/3 }, {y,0,(12-3x-4z)/6}, ViewPoint- 
> {-1,-2,1}]; 


GraphicsGrid[ {Array[plot,2]} ‚ImageSize->600] 
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Figure 6.33. The new region description D={(x,y)|0<=x<=(12 - 
42)/3,0<=z<=3} (left) and the solid region W={(x,y,z)|0<=x<=(12 - 
42)/3,0<=y<=(12 - 3x - 4z)/6,0<=z<=3} (right) of type 3.(a). 


(d) 
3 [(12-42)/3 f (12-3 x-4 z)/6 T 
f-o x=0 i dydxdz=4 


Integrate[ 1, {z,0,3},{x,0,(12-4z)/3}, {y,0,(12-3x-4z)/6} ] 


Example 6.18. (a) Draw the solid whose volume is given by the iterated 
integral 


fe faf azayax 


(b) Evaluate the integral in part (a). 


(c) Rewrite the integral using the integration order dy dZ dX and draw the 
solid. 


(d) Evaluate the integral in (c) and verify the result with the one obtained in 


(b). 


Solution: 

(a) 

The solid region W is given by 
W={(x,y,Z)|0<=x<=1,-1<=y<=0,0<=z<=y’2}. 


By Definition 6.5 W is type 1.(a) elementary solid region, where D is 
elementary region of type 1 in the xy-plane by Definition 6.2: 


D={(%y)|(0<=x<=1,-1<=y<=0}. 


To draw the solid region we use the module viewSolidla: 


Module[ {plot,text}, 


plot[1]=viewRegion1[ {x,0,1}, {y,-1,0},AspectRatio->Automatic |; 


text=Graphics[Text["D", {0.5,-0.5} |]; 
plot[1]-Showg[plot[1 |,text |; 
plot[2]=viewSolidlal {x,0,1}, {y,-1,0}, 12,0, y^2] ]; 


GraphicsGrid[ {Array[plot,2]} .ImageSize-^600] 


Figure 6.34. The region D={(x,y)|0<=x<=1,-1<=y<=0} (left) and the solid 
region W-1(x,y,z)|0«—x«-1,-1«-y«-0,0«-z«-y^2, (right) of type 1.(a). 


(b) 


1 [0 ry? "E 
Lu eod zdydx- 3 


Integrate[ 1 , {x,0, 1 } , {y,- 1 ,0j , {z,0,y”2}] 


(c) 

To rewrite the integral using the integration order d y dZ dX so that the 
solid becomes elementary region of type 3.(b) by Definition 6.5 we first 
need to describe the region D in the xz-plane. 

From Figure 6.34-right the new description D is given by 
D={(x,z)|0<=x<=1,0<=z<=1}. 


The integration variable y in term of z is y=+Sqrt[z]. 


Also from Figure 6.34-right the variable y is in negative territory. So, it is 
bounded below and above by y=-1 and y=-Sqrt[z], respectively. So, 


W= {(x,y,Z)|(0<=x<=1,-1<=y<=-Sqrt[z],0<=z<=1}. 


The integral becomes 
1 r1 r-Yz 
[m z=0Jy=-1 dydzdx l 


The module viewSolid3b is defined below to visualize the solid region: 


(* Draw the solid of type 3.(b) elementary region *) 


viewSolid3b[ {x_,a_,b },{z ,f ,g }, 
{y_,F_,G_},opts _]:=Module[ {u,v,xx,zz,surfs,pplot}, 


xx=atu*(b-a); 
zz=ft+v*(g-f)/.x->xx; 
surfs={{x,F,z}, {x,G,z}}/. {x->xx,z->zz}; 


pplot=ParametricPlot3 D[ Evaluate[ surfs], {u,0,1}, {v,0,1},PlotStyle-> 
{Blue,Red} |; 


Show] pplot, Table[Graphics3D] {GrayLevel[0.8],Line[surfs]} ], {u,0,1,0.05}, 
{v,0,1}],Table[Graphics3D[ (GrayLevel[0.8 |,Line[surfs |) ], {u,0,1}, 
{v,0,1,0.05} ],AxesLabel->{"x","y","z"} opts] 


] 


Module[ {plot,text}, 


plot[1]=viewRegion1[ {x,0,1},{z,0,1},AspectRatio->Automatic,AxesLabel- 
> {"x" "z" E 


text-Graphics[Text["D", {0.5,0.5}]]; 
plot[1]-Showg[plot[1 ],text]; 
plot[2]-viewSolid3b[1x,0,13,(2,0,1], {y,-1,-Sqrt[z]} ]; 
GraphicsGrid[ {Array[plot,2]} ‚ImageSize->600] 


] 
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Figure 6.35. The new region description D={(x,z)|0<=x<=1,0<=z<=1 } 
(left) and the solid region W={(x,y,z)|0<=x<=1 ,-1<=y<=-Sqrt[z],0<=z<=1} 
(right) of type 3.(b). 


(d) 


1 lof ayazax= 


z 
yc 3 


Integrate[ l , {x,0, 1 } , {Z,0, 1 } , {y,-1 Sqrt[z] +] 


After showing examples to find the volumes corresponding to the six 
elementary regions based on Definition 6.5 we shall now look at more 
examples with general functions of three variables. 


Example 6.19. Let D be the region of the xy-plane that is bounded below by 
y=1+(x+1)%3 and above by y=3-x”2. Also, let W be the solid region that is 
bounded below by D, above by the plane z=y, and laterally by the two 
cylinders y=1+(x+1)*3 and y=3-x”2. Evaluate the triple integral 


fffux vzdv. 


Solution: 


First, we describe the region D of the xy-plane. 


ContourPlot[ {y==1+(k+1)%3,y==3-x‘2}, {x,-2,1}, 1y,0,4 ] , Frame- 
>False,Axes->True,AxesLabel->{"x","y"},ContourStyle-> 
{Blue,Red} ,PlotLegends->"Expressions",AspectRatio->Automatic] 


— y=(x+1)?+1 
—y=3-% 


-20 -15 -1.0 -0.5 0.5 1.0 


Figure 6.36. The region D of the xy-plane is bounded below by y=1+ 
(x+1)^3 and above by y=3-x^2. 


D is a elementary region of type 1 by Definition 6.2, so we need to find the 
limits of integration with respect to x which are the intersection points 
between the curve y=1+(x+1)43 and y=3-x”2. The intersection occurs when 


y=1+(k+1)%3=3-x2. 
Using FindRoot command and supplying an estimated root by using 


Figure 6.36 we set the left and right root to be x=-1.5 and x=0.5, 
respectively. 


FindRoot[1+(x+1)*3==3-x’2, {x,-1.5}] 


Note that FindRoot returns a list of solution with replacement, that is, x 
is to be replaced by -1.44504, the value of our solution. In this case, 
there is only one solution at the first element and the value -1.44504 is 
in the second position. So, we pick up this value using [[1,2]] and assign 
it to x1. 


x 1=FindRoot[1+(x+1)3==3-x’2, {x,-1.5}][[1,2]] 


Similarly to the second root, 


x2-FindRoot[1--(x--1)^37-3-x^2, {x,0.5}J[[1,2]] 


Using viewRegion1 module we graph D: 


viewRegion1[{x,x1,x2}, {y, 1 +(x+1)*3,3-x%2} ,AxesOrigin-> 
{0,0} ,PlotRange-> { {-2,1}, {0,4} } AspectRatio->Automatic] 


y 


Figure 6.37. The region D={(x,y)|-1.44504<=x<=0.24698, 1+ 
(x+1)43<=y<=3-x‘’2} of Example 6.19. 


Hence, the solid region W is described as 
W={(x,y,Z)|-1.44504<=x<=0.24698, 1+(x+1)*3<=y<=3-x*%2,0<=z 
plot1=ContourPlot3D[ {z==y, y==3-x’2,y==1+(x+1)*3}, {x,-2,1}, {y,0,43, 


{z,0,4} .Mesh->None,ContourStyle->{ {Blue,Opacity[0.1]}, 
{Red,Opacity[0.3]}, {Green,Opacity[0.3]}},PlotLegends->"Expressions" | 


Hz-—y 
8B»r-3-» 
mw y=1+(«+1) 


1 


Figure 6.38. The solid region W is bounded below by D, above by the plane 
z=y, and laterally by the two cylinders y=1+(x+1)*3 and y=3-x”2 


plot2=viewSolidlal {x,x1,x2}, fy, 1+(k+1)%3,3-x2}, {z,0,y}] 


Figure 6.39. The solid region W={(x,y,z)|-1.44504<=x<=0.24698,1+ 
(x+1)43<=y<=3-x‘2,0<=z 


Show/[plot1,plot2] 


Bz=y 
By=3-x 
mg y=1+(@+1) 


Figure 6.40. The solid region W is graphed together with boundaries y=1+ 
(x+1)43, y=3-x^2 and z=y. 


Finally, we compute the triple integral as the iterated integrals: 


2 _ [0.24698  [3-X? y 
J[fwx y zaV = Jj aan? hox Yzdzdydx 


- 1.81756 


Integrate[x^2 y z, {x,x1,x2}, fy, 1+(k+1)%3,3-x%2}, {z,0,y}] 


Example 6.20. Let a solid region W be bounded by x-y^2, y=z, x=y, and 
z=0. Integrate f(x,y,z)=4x+y over W. 


Solution: 


Clear[x,y,z] 


plot1-ContourPlot3D[ (x——y^2,y-7-z,x-—-y,z--0], {x,-1,1}, {y,-0.5,1}, 
{z,0,1},Mesh->None,ContourStyle-> ( {Blue,Opacity[0.3]}, 
{Green,Opacity[0.3]}, {Red,Opacity[0.3]}, 

{Yellow,Opacity[0.3]} },AxesLabel->{"x","y","z"},PlotLegends- 
>"Expressions" | 


mx=y 
By=z 
Bx=y 
mz=0 


Figure 6.41. The solid region W is bounded by x-y^2, y=z, x=y, and z=0. 


Using Figure 6.41 we find the description of the region D of the xy-plane. It 
can be considered as elementary region of type 1 by Definition 6.2 given by 


D={(x,y)|O<=x<=1,x<=y<=Sqrt[x]}. 


viewRegion1[{x,0,1}, {y,x,Sqrt[x]},AspectRatio->Automatic | 


Figure 6.42. The region D is in the xy-plane given by D= 
tQoy)l0c—x«- 1 x<=y<=Sqrt[x]} 


The solid region W is bounded below by z=0 and above by z=y, thus 
W= {(X,y,Z) |0<=x<= 1 x«-y«-Sqrt[x | ,0<=z<=y} " 


With such description, W is a region of type 1.(a) by Definition 6.5. 


plot2=viewSolid1al[ {x,0,1}, {y,x,Sqrt[x]}, {z,0,y}] 


1.0 


Figure 6.43. The solid region W= 
{(%y,2)]0<=x<= 1 ,x<=y<=Sqrt[x],0<=z<=y}. 


Show/[plot1,plot2] 


E x= 
By=z 
Bx=y 
mwz=0 


Figure 6.44. The solid region W= 
{(x,y,Z)|0<=x<=1,x<=y<=Sart[x],0<=z<=y} is graphed together with the 
boundaries x=y”2, y=z, x=y, and z=0. 


The triple integral: 


Sff y 2dV=fff,4x+ydv 
= trs Y (ax+y)dzdydx 


~ Jx=0Jy=x 


Integrate[4x+y, {x,0,1},{y.x,Sqrt[x]},{Z,0,y 5 ] 


6.3 Change of Variables in Double Integrals 


We have seen in previous sections the process of evaluating multiple 
integral can be a complicated task. In many cases, the integrand and the 
domain of integration can be simplified if we make changes of variables. 
Three of the most well-known changes of variables are expressed in polar, 
cylindrical, and spherical coordinates. 


We begin our study of coordinate transformation using polar coordinates. 
6.3.1 Double Integrals in Polar Coordinates 


Some double integrals are more convenient to evaluate in polar coordinates 
than in rectangular coordinates. This is especially true when the domain of 
integration is of angular sector such as circles, cardioids, and for integrands 
that involve x^2+y^2. 


Before we delve into integration involving polar coordinates we shall define 
the notion of Jacobian of a general transformation from one coordinate 


system to another coordinate system in R? which is given below: 


Definition 6.7 


Let T be a differentiable coordinate transformation from a uv-plane to 
the xy-plane such that 


T:(u,v)->(x(u,v),y(u,v)), where (4, V), (x, y) e R^ 


a(x, y) 
The Jacobian of the transformation T, denoted °C: V) is the determinant 
of the derivative matrix DT(u,v), where 


ay ôy 


Ox ox 
DT(u, v) -| i | 
Ou Ov 


(6.13) 


Thus, by Definition 6.7 we have 


(6.14) 
ax ax 
26:2) - det DT(u, ZEE J 
_ ôx y nes 
du ôv ðv Ou 


Note that the Jacobian of the transformation T is a function of u and v. 


The role of the Jacobian is reflected in the following theorem which we 
state without proof: 


Theorem 6.8 (Change of Variables in Double Integrals) 


Let T:D*->D be a differentiable transformation that is one-to-one on the 
interior of D*, where D* and D are elementary regions in the uv-plane and 
the xy-plane, respectively. If f(x,y) is continuous, then 


(6.15) 


[hf »axdy = [J.f(x(u, v), y(u, v) 


| dudv 
a(u, v) 


d(x, y) 
O(u, v) 


Note that the term is the absolute value of the Jacobian of the 


transformation T. 


Now, let us consider the polar coordinates as an example in applying 
Theorem 6.8. 


Recall that rectangular and polar coordinates are related by 
x=r cos 0, 


y=r sin 0. 


From which we obtain 


x^2+y^2=r^2, 


tan 0=y/x if x!=0. 


By Definition 6.7: 


T(r,0)=(x,y)=(r cos 0,r sin 0). 


Using equation (6.13) the derivative matrix of the transformation T is 


ax 8 


Xx 
o 38 _{cos@ -rsin 8 
o oz zm "hera 


or 00 


Using equation (6.14) the Jacobian of the transformation T is 


a(x, y) 


= det DT(u, v) =r cos? 0 «rsin? 82r 
Au, v) 


Hence, equation (6.15) for the transformation T becomes 
(6.16) 


J [pfx y)dxdy = [[,.f(rcos 8, rsine)rdrd6 


? 


where the domain of integration D*={ (1,0)| 01«—0-—02, r(01)«—r«-1(02) |. 


Example 6.21. Given an integral 


T MEA Y gx ty? dxdy 


(a) Compute directly using Integrate command. 


(b) Transform the integral to one in polar coordinates and evaluate the polar 
integral. 


Solution: 


(a) 

The region D is a circle of radius a of type 2 elementary region by 
Definition 6.2, confined by x>=0. It covers the first and fourth quadrant, 
described by 


D={(x,y)|0<=x<=Sqrt[a^2-y^2],-a<=y<=a}. 


Integrate[E”(x”2+y”2), {y,-a,a}, 1x, 0, Sqrt[a^2-y^2 ]) ] 


Integrate[E^(x^2y^2), {y,-a,a} , 1x, 0, Sqrt[a^2-y^2 ]) ]/. {a->1 //N 


Note that Mathematica does not yield a closed form result for this integral 
in Cartesian coordinates. 


(b) 

Changing to polar coordinates using the relation: 
x=T cos 0, y=r sin 0, 

we obtain the new description D* 


D*={(1,0)|0<=r<=a,-(1/2)<=0<=n/2}. 


The Jacobian for this change of variables is 


dy oy sin@ rcos@ 


ax ox : 
axy) _ ar 80 | _ | cos 0 -rsin 8 
ór 00 


Using equation (6.16), we have 


| o RA Va-y? ey dxdy - [*, 2 e" rd8dr 


ie a 
2 n (e* 1) 
Integrate[E^r^2 r, {0,-(2/2),7/2}, (1,0,a] ] 


Integrate[ E^r^2 r, (0,-(1/2),1/2] ,{r,0,a} ]/. {a->1 }//N 


Example 6.22. Find the area of the region inside the cardioid r=1-cos@ and 
outside the circle r=1. 


Solution: 


In polar coordinates, a circle with radius 1 centered at the origin is 
represented by 


r=1, 0<=0<=2r. 


Using PolarPlot command we plot the two plane curves to determine 
the description of the region D*. 


plot=PolarPlot[ {1-Cos[@],1},{8,0,27} ,PlotStyle->{Blue,Red},PlotLegends- 
>"Expressions" | 


— 1-cos(80) 
0 —1 


Figure 6.45. The cardioid r-1-cos0 and the circle r=1. 


The region D* of interest can be described as 
D*={(1,0)|1<=r<=1-cos 0,1/2«—0--(31)/2] . 


To plot the area being examined we provide a module called 
polarRegion. Note that the parameters passed to polarRegion are the 
same as those entered into the Integrate command. 


(* Graph the shaded area using polar coordinates *) 
polarRegion[ {0 ‚a ,b },{r_ „R1 ,R2 j,opts J|: 


Module[ {twocurves}, 


xp[rr_]:=rr Cos[0]; 
yplrr_]:=rr Sin[0]; 


twocurves=PolarPlot[ {R1,R2}, {0,a,b} ,PlotStyle->{ {Blue}, 
{Red, Thickness[0.008]} },AxesLabel->{"x","y"}]; 


Show[twocurves, Table[Graphics[ ( GrayLevel[0.8 |,Line[ {{xp[R1],yp[R1]}, 
{xp[R2],yp[R2] } } ] } |: {9,a,b,(b-a)/S0} ],opts] 


] 


region=polarRegion| (0,1/2,(32)/2), 1r, 1,1-Cos[0 |, ImageS1ze-^300] 


y 


Figure 6.46. The region D*={(r,0)|1<=r<=1-cos 0,2/2<=0<=(32)/2}. 


Show[plot,region] 


— 1-cos(60) 
0 —1 


Figure 6.47. The region D* is inside the cardioid r=1-cos0 and outside the 
circle r=1. 


To find the area of the region we use equation (6.16) with f(x,y)=1: 


A={[,dA=|{,dxdy=[.rdrde 


9 


- _ [37/2 f1-cos 0 m | 
A= JJpd A7 Jonah rdrd6=,(&+n) 


Integrate[r, (0,1/2,(31)/2] , (1, 1,1-Cos[0]] ] 


Example 6.23. (a) Evaluate the following integral directly using 
Integrate command. Observe how long it takes to execute the integral 
by using Timing command. 


~__qA 
lone 


where D is the unit square [0,1]x[0,1]. 


(b) Convert the integral in part (a) to polar coordinates and evaluate the 
integral. 


Solution: 
(a) 
Sof, = dA = 0.647794 


=0Jv=0 
X-UJy FG 


Timing[Integrate[x/Sqrt[x^24*y^2], {x,0,1}, {y,0,1}]]//N 


(b) 
First, we find the new description D* in the r0-plane from D. 
Using the change of variables: 


x=r cos 0, y-rsin 0, 


we obtain 


r-Sqrt[x^2*ty^2], 0-tan^-1 y/x. 


Module[ {vertex,plot}, 

vertex[1]- 10,0]; 

vertex[2 ]- (0,1 ) ; 

vertex[3]- 11,0]; 

vertex[4]- 11,1]; 

plot[1]-Graphics| f Blue,PointSize[0.04 |,» Point[ Array |[vertex,4 | V]; 


plot[2]-Graphics| f Red, Thickness[0.01 ],Line| (vertex[1 ],vertex[2 ], vertex[4 ] 
‚„vertex[3],vertex[1]}]}]; 


plot[3]=Graphics[ {Blue,Thickness[0.01],Dashed,Line[ {vertex[1],vertex[4]} 
IH 


Show [Array[plot,3 |, Axes-^ True, AxesLabel-» ("x","y"),ImageSize-^300] 


] 
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Figure 6.48. The region D={(x,y)|0<=x<=1,0<=y<=1} is divided into two 
subregions along the line 0=7/4. 


In polar coordinates, we need to divide the region along the line 0—7/4 into 
two subregions. 


Region 1: D1* 


In this region the polar angle 0 ranges from 0 to cos*-1(1/Sqrt[2])=2/4 
while r depends on 0 with fixed x=1. 


Using the Cartesian and polar coordinates relation: 
x-rcos0, y-rsin 0, 
we have 


1=r cos 0, 


r(0)-sec 0. 


Thus, the region D1* in polar coordinates: 


D1* = ((r, 0)|(0<= r<=sec 0, 0<=0<=7/4}. 


Using polarRegion module we plot D1*: 


Module[ {plot}, 

plot[1]-polarRegion[ {8,0,7/4}, {1,0,Sec[0]} |; 
plot[2]-Graphics[Text[" D1 *", {0.7,0.3} |]; 
Show [Array[plot,2 |,ImageSize-^300] 


] 
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Figure 6.49. The first subregion description in polar coordinates D1* = {(r, 
0)|0—— r<=sec 0, 0<=0<=7/4}. 


Region 2: D2* 


In this region the polar angle 0 ranges from 7/4 to 1/2 while r depends on 0 
with fixed y=1. 


So, 
1=r sin 0, 


r(0)=cosec 0. 


Thus, the region D2* in polar coordinates is described as 


D2* = {(r, 0)|0«— r<=cosec 0, 1/4<=0<=n/2}. 


Using polarRegion module we plot D2*: 


Module[ {plot}, 

plot[1]-polarRegion[ {8,2/4,7/2}, 11,0, Csc[0]) ]; 
plot[2 |=Graphics[Text["D2*", {0.3,0.7} |]; 
Show[Array[plot,2 |,ImageSize-^300] 


] 
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Figure 6.50. The second subregion description in polar coordinates D2* = 
{(r, 8)|0<= r<=cosec 0, 1/4<=0<=n/2}. 


The Jacobian for this change of variables is 


Ox Ox 
(xy) _ | ar o0 zi pep: " 
Ar, | 3x 9Yy| | sin@ rcos8l 
ôr 00 


Using equation (6.16) we have 
Sr y)dxdy = Í [.f(r cos 6, rsinO)rdrd6 
af 0, rsinQ)rdrdO 
+S Jo: (r cos 6, rsin O)rdr 


Since x/Sqrt[x^2+y^2]=(r cos 0)/r=cos9, 


f h= A= foe [3 *rcos Odr de 


J 6=0 Jr=0 
x2 + y? T 


7/2 cosec @ 
lo ale rcos@drd® 


f [h IA = 0.647794 


x +y? 


Timing[Integrate[r Cos[0], {0,0,7/4},{r,0,Sec[0]} |+Integrate[r Cos[0], 
{0,n/4,/2} , {1,0,Csc[8] } ]//N 


6.3.2 General Change of Variables in Double Integrals 


Transformation to polar coordinates in previous section is a special type of 
changing variables in double integration. The need arises when we simplify 
the domain of integration and/or the integrand. Usually this is related to the 
geometry of the domain itself. In this section we shall continue our 
discussion about general change of variables due to a transformation. 


2 QX-y 
Example 6.24. Evaluate J In x*yye dA , where D is the region 
enclosed by 2x+y=1, 2x+y=4, x-y=-1, and x-y=1. 


Solution: 


To simplify the integration we seek to transform the region D in xy-plane 
into a new region D* in uv-plane. This can be done due to the symmetry of 
the region D which we plot in the following. 


ContourPlot[ {2x+y==1,2x+y==4,x-y==-1,x-y==1}, {x,-1,3}, 
{y,-1,3},Frame->False,Axes->True,AxesLabel-> {"x","y"},ContourStyle-> 
{Blue,Red,Green, Black} ,AspectRatio->1, PlotLegends->"Expressions" | 


Figure 6.51. D is the region enclosed by 2x+y=1, 2x+y=4, x-y=-1, and x- 
y-l. 


The region D is a parallelogram in the xy-plane. We want to see how the 

region transforms using a certain mapping that transforms it to another 

region in uv-plane. Let us make changes of variables by writing 
u=2xty, v-x-y. 


So, 


x=1/3(utv), y-1/3(u-2v). 


Solve| {u==2x+y,v==x-y}] 


Let T be the the mapping according to Definition 6.7 that transforms 
the coordinates u, v to the another coordinates x, y such that 


1 (us 
T(u, HEHE 


’ 


where A is the matrix representation ofT. 


Obviously, 
Det[111/3,1/31,11/3,-(2/3)3 1] 


Since det A=-(1/3)!=0, we know from linear algebra that matrix A is 
invertible. It can be checked that the inverse of A is 


ET 
" ( a) 


Inverse { {1/3,1/3}, {1/3,-(2/3)} } //MatrixForm 


It can be shown that T is one-one and onto that takes parallelograms to 
parallelograms and the vertices of parallelograms to the corresponding 
vertices. 


The image of D* is D such that 


D-T(D*). 


The Jacobian of the transformation T can be found by equation (6.14): 


Ox Ox 1 A 
Em -.|auov| .|3 3 -|-2-1|-1 
auvi |3 y| |1.2|] I 9 9! 3 
Ou Ov 3 3 


Next, we find the vertices of the region D and then those of the new region 
D* using the transformation T. 


The intersection point between the line 2 x*y-1 and x-y=-1 is (0,1). 


Solve[ {2x+y==1,x-y==-1}] 


The intersection point between the line 2 x+y=4 and x-y--1 is (1,2). 


Solve[ {2x+y==4,x-y==-1}] 


The intersection point between the line 2 x+y=1 and x-y=1 is (2/3,-(1/3)). 
Solve[ {2x+y==1,x-y==1}] 

The intersection point between the line 2 x+y=4 and x-y=1 1s (5/3,2/3). 
Solve[ {2x+y==4,x-y==1}] 


Thus, the vertices of the region D are 


(0,1), (1,2), (2/3,-(1/3)), (5/3,2/3). 


Using the transformation matrix A^-1: 


ajai 
x 4). 


the corresponding vertices in the new region D* can be found: 


Vertices in D Vertices in D* 
x=0,y=1 u=1,v=-1 


x-],y-2 u=4,v=-1 


x=2/3,y=-(1/3) u=1,v=1 


x=5/3,y=(2/3) u=4,v=1 


Thus, the description of D* is given by 
D*={(u,v)|1<=u<=4,-1<=v<=1}, 
where the vertices are 


(1,1),(1,-1),4,1),(4,-D). 


Module[ {vertex,transform,plot}, 

vertex[1]={0,1}; 

vertex[2]- (1,2); 

vertex[3]- (2/3,-(1/3)] ; 

vertex[4]- (5/3,2/3) ; 

transform= { {2,1},{1,-1}}; 
For[171,1«—4,1—,new Vertex[i |-transform.vertex[1]]; 
plot[1]-Graphics| f Blue,PointSize[0.05 ],Point[ Array [vertex,4 | V]; 


plot[2]-Graphics| ( Green, Thickness[0.01],Line[ ( vertex[1 |,vertex[2 |, vertex| 
4],vertex[3],vertex[1]}]}]; 


plot[3 |=Show| {plot[1],plot[2]},Axes->True,AxesLabel->{"x","y"} |; 


plot[4]=Graphics| {Red,PointSize[0.05],Point[Array[newVertex,4]]} ]; 


plot[5]=Graphics| {Green, Thickness[0.01],Line[ {new Vertex[ 1 ],newVertex[ 
2 |,new Vertex[4],new Vertex[3 ],new Vertex[ 1]}]}]; 


plot[6]-Show[ {plot[4],plot[5]},Axes->True,AxesLabel-> 
{"u"7,"v"}, AxesOrigin-> {0,0} ]; 


Show[GraphicsGrid[ { (plot[3 ],plot[6]) },Spacings-> {100,0} ],ImageSize- 
>500] 


Figure 6.52. The region D in the xy-plane (left) and the transformed region 
D*={(u,v)|1<=u<=4,-1<=v<=1} in the uv-plane (right). 


(* Vertices in D* *) 


Array[newVertex,4] 


Note that the region D* is geometrically simpler to integrate. Hence, the 
main reason for such transformation. 


By Theorem 6.8 (Change of Variables in Double Integrals) equation (6.15), 
we have 


2 ax-y _f4 pri 2 4v | 9(xy) 
J[p(2x+y)r e** dA=f" [ure a | dudv 


-1/4 [! Z2e’dudv 
3 Ju=1Jv=-1 
F 4 
=(e-e iw 
9 h 


=7 (e-e!) 


Integrate[ 1/3 u^2 E^, {u,1,4}, {v,-1,1}] 


Example 6.25. Use Theorem 6.8 to evaluate: 


She" dA 


where D is the region in the first quadrant bounded by the hyperbolas 
y=1/x, y=4/x and the lines y=1/4 x, y=2x. 


Solution: 


First, we plot the boundary curves: 


ContourPlot[ {y==1/x,y==4x,y==1/4 x,y==2x},{x,0,5}, {y,0,4} ,Frame- 
>False,Axes->True,AxesLabel->{"x","y"},ContourStyle-> 
{Blue,Red,Black,Green}, PlotLegends->"Expressions" | 


=i 
u 
= 4 
zu 
= X 
zu db. 
—y=2x 
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Figure 6.53. Region D is in the first quadrant bounded by the hyperbolas 
y=1/x, y=4/x and the lines y=1/4 x, y=2x. 


Let u=y/x and v=x y. 


Note that we choose these changes of variables so that the hyperbolas 
correspond to the lines v=1 and v=4, respectively; whereas the lines y=1/4 x 
and y=2x correspond to u=1/4 and u=2, respectively. 


Thus, the region D* in the uv-plane can be described as 
D*={(u,v)|1/4<=u<=2,1<=v<=4} 
Solving for x and y in terms of u, v we get 

x-Sqrt[v/u], y-Sqrt[u v], 


by considering the region to be in the first quadrant. 


Solve[ tu-—y/x,v—x yj, ys] 


The Jacobian for this transformation by equation (6.14) is 


ó(u, v) oy oy 


ôx x 
N) = det DT(u, yd J 
du ðv 


y 1/2 1 


-det| 2707 2J/w |... 
E 


vuv 
I fe 1 [E 2u 
2Nu 2 Nv 


(x, y) 
O(u, v) 


— 
r4 


(* The derivative of T(u,v) *) 
Outer[D, {Sqrt[v/u],Sqrt[u v]}, {u,v} |//MatrixForm 
(* The Jacobian of T(u,v) *) 


Det[%]//PowerExpand 


Note that Outer command is a nice tool to construct the derivative 
matrix of T as we have studied in Chapter 3. 


By equation (6.15): 


J fpf y)dxdy= I f(x(u, v), y(u, v)) a y) vi dudv 


? 


i dA= nl "i ev’ dudv 


- (e? - e?) In 8 


Integrate[1/(2u) E^(-v/2), 1u,1/4,25, (v,1,41] 


6.4 Change of Variables in Triple Integrals 


In this section, we shall extend previous definition of the Jacobian of a 
transformation to the case of triple integrals. In particular we shall consider 
triple integrals in cylindrical coordinates and spherical coordinates. 


Definition 6.9 


Let T be a differentiable coordinate transformation from a uvw-space 
to the xyz-space such that 


T:(u,,w)-»(x(u,v,w),y(u,v,w),z(u,v,w)), 
where (U, V, w), (x, y, zZ) eR? l 
(x, y.Z) 


The Jacobian of the transformation T, denoted (u. v.w) is the 
determinant of the derivative matrix DT(u,v,w), where 


DT(u, v, w)- gy wóx 


Thus, 


(6.17) 


ax ox ox 


Ou Ov Ow 
ô dy Oy ð 
Ony,2) = detDT(u, v, w) 2 det| 4 Z & 
O(u, V, w) 2 E pa 

= o Or 

Ou Ov Ow 


Note that the Jacobian of the transformation T is a function of u,v and 
W. 


Omitting the details, the corresponding theorem is stated below: 


Theorem 6.10 (Change of Variables in Triple Integrals) 


Let T:W*->W be a differentiable transformation that is one-to-one on the 
interior of W*, where W* and W are elementary solid regions in the uvw- 
space and the xyz-space, respectively. If f(x,y,z) is continuous, then 


(6.18) 


SS fat y, z)idxdydz- 
fx, V, W), y(u, V; w), z(u, V, w)) | (x, y, z) 


O(u, V, W) 


dudvdw 


6.4.1 Triple Integrals in Cylindrical Coordinates 


There are many common solid regions which are difficult to integrate in 
rectangular coordinates, such as ellipsoids, cones, and paraboloids. When 
integrating over solid regions possessing an axis of rotational symmetry, 
cylindrical coordinates can be particularly helpful. The rectangular 
conversion equations for cylindrical coordinates are 


x=r cos 0, 


y=r sin 0, 


Z—4. 


By Definition 6.9 the Jacobian for the cylindrical to rectangular coordinate 
transformation is given by 


ôx ôx Ox 
ôr 00 Oz 


26.5.2 -det DT(r, 0, z) - get| €. 2» 2» 
a(r, 0, z) rd A pa 
oZ -CZ HE 
or 00 Oz 


cos 0 -rsin O 0 
se sin@ rcos® | 
0 0 1 


=f 
Hence, equation (6.18) becomes 
(6.19) 


[ff y, 2dxdydz= | ff, f(r cos 8, rsin @, zyrdrd@dz 


If f(x,y,z)=1, the triple integral is the volume of the solid region given by 


(6.20) 


V=fffdxdydz=|Jf,.rdrdedz 


Example 6.26. Evaluate the following integral 


[i I mu Tess drdyds 


by using cylindrical coordinates. 


Solution: 


First, we draw the solid region in space. 


ContourPlot3D[ | y—--Sqrt[9-x^2 ],y==Saqrt[9- 

x2],z==Sqrt[x*2+y*2],z==3 }//Evaluate, {x,-3,3}, {y,-3,3}, 
{z,0,4},AxesLabel->{"x","y","z" Mesh->None,ContourStyle-> 
{{Yellow,Opacity[0.3]}, ‘Yellow, Opacity[0.3]},Green, 
{Blue,Opacity[0.3]} }] 


^? | 


Figure 6.54. The solid region is a cone z=Sqrt[x^2+y^2] bounded by the 
cylinder x^2+y^2=9 and the plane z=3. 


Note that the solid is a cone bounded below by the surface z=Sqrt[x^2+y^2] 
and above by the plane z=3. It is a elementary region of type 1.(a) by 
Definition 6.5: 


W={(x,y,Z)|-3<=x<=3,-Sqrt[9-x%2 |«—y--Sqrt[9-x^2 ,Sqrt[ x^2y^2] 
<=z<=3}. 


It is rather complicated to describe the solid region and do the integration in 
rectangular coordinates. So, we seek to transform the integral to one in 
cylindrical coordinates. 


The cylindrical-rectangular coordinate transformation is given by 


x=r cos 0, 


y=r sin 0, 


Z—4. 


The Jacobian for this transformation is 


202) — det 
O(r,0,z) 


sin@ rcos@ 0 
0 0 1 


cos 8 -rsin 0 
In cylindrical coordinates the cone z-Sqrt[x^2*y^2] is simply 
ZT. 
So, the solid region W in cylindrical coordinates can be described as 


W-1 (1,8,z)|0<=r<=3 ,0<—0<=21,1r<=z<=3 | 


The following module view the solid region in cylindrical coordinates 
using the parameters in the order of integration z, r, 0 as it is entered in 
Integrate command: 


viewCylindrical[(0 ,a ,B }.{r .f ;g }, 
{z_,F_,G_},opts  |:-Module[(u,v,00,rr,surfs,pplot], 


00—-a--u*(p-a); 
rr=f+v*(g-f)/.6->00; 


surfs={ {r Cos[$],r Sin[0],F},{r Cos[0],r Sin[0],G3 }/. {0->00,r->rr}; 


pplot=ParametricPlot3D[Evaluate[surfs], {u,0,1},{v,0,1},PlotStyle-> 
{Blue,Red} ,AxesLabel->{"x","y","z"}]; 


Show[pplot, Table[Graphics3D[ {GrayLevel[0.8],Line[surfs]} ], {u,0,1,0.05}, 
{v,0,1,0.1} ],opts] 


] 


viewCylindrical[ {0,0,27}, {1,0,3}, {z,r,3}] 


Figure 6.55. The solid region W={(r,0,z)|0<=r<=3 ,0<=0<=21,1r<=z<53}. 


Using equation (6.19): 


[ff fes y, z)dxdydz=f{f,.f(rcos 6, rsine, z)rdrdedz 


we have 


9-x? 
——— dzdydx 
f ET as Tg y 
= el at ? € rdzdrde 
22 +2e °) yr 
Integrate[E^z, {0,0,27}, (10,31, 12,53] ] 


%//N 
Let us try computing the integral directly using rectangular coordinates: 


Integrate[E^z/Sqrt[x^2--y^2], (x,-3,31, $y,-Sqrt[9-x"2],Sqrt[9-x"2]}, 
{z,Sqrt[x"2+y”2],3}] 


Mathematica has no idea on how to integrate it directly using 
rectangular coordinates, so it does not return a correct answer. 
However, it can provide numerical solution using NIntegrate command 
as is demonstrated below: 


NiIntegrate[E^z/Sqrt[x^2-y^2], {x,-3,3}, (y,-Sqrt[9-x^2], Sqrt[9-x^2]] , 
tz,Sqrt[x^2*y^2],3j ] 


Example 6.27. Find the volume of the region under the cone z=6-r whose 
base is bounded by the cardioid r=3(1+cos 0). 


Solution: 


Let us first draw the cone z=6-r and the cardioid r=3(1+cos 0). 


Module[ {plot}, 

(* Plot the cone z=6-r 

using ContourPlot3D in rectangular coordinates *) 
plot[1]-ContourPlot3D[z—-6-Sqrt[x^2--y^2 |//Evaluate, {x,-6,6}, {y,-6,6}, 
{z,0,6},BoxRatios->{1, 1, 1},ContourStyle-> {Red,Opacity[0.5]},Mesh- 
>None,AxesLabel->{"x","y","z"}]; 


(* The base of the region is bounded by the cardioid r=3(1+cos@) *) 


plot[2]-PolarPlot[3(1--Cos[0]), {0,0,27} ,AxesLabel-> {"x","y"},PlotStyle- 
>AbsoluteThickness[2]]; 


Show[GraphicsGrid[ {Array[plot,2]} ],‚ImageSize->500] 


Figure 6.56. The cone z=6-r and the base region bounded by the cardioid 
r=3(1+cos 0). 


Using Figure 6.56 we can describe the solid region as 


W*={(1,0,z)|0<=0<=22,0<=r<=3(1+cos 0),0<=z<=6-r}. 


viewCylindrical[ {0,0,27}, {r,0,3(1+Cos[6])!, {z,0,6-r} , ViewPoint-> 
{-3,-4,6} ] 


7 N 


Yn, 
\ 4 


an 
bo 


Figure 6.57. The solid region W*={(r,0,z)|0<=0<=27,0<=r<=3(1+cos 
0),0<=z<=6-r}. 


The volume of the solid by (6.20) is 


V= [[furdrdodz= [er [2009959 f rdzdrdo 


= 30H 


Integrate[r, {0,0,27}, {1,0,3(1+Cos[8])}, {z,0,6-r} ] 
6.4.2 Triple Integrals in Spherical Coordinates 


If a solid region is symmetric with respect to the origin, then the description 
using spherical coordinates are often most convenient. The rectangular 
conversion equations for spherical coordinates are given by equation (1.28): 


x=r sin 0 cos db, 
y-r sin 0 sin Ọ, 
Z-r cos 0, 


where r is the distance from a point P in space to the origin; 0 1s the angle 
between the positive z-axis and the ray through the origin and P; and @ is 
the angle between the positive x-axis and the ray made by dropping a 

perpendicular line from P to the xy-plane (see Section 1.8.3, Figure 1.21). 


Note that r-coordinate and 0-coordinate have different meanings from those 
used in the cylindrical coordinates. 


By Definition 6.9 the Jacobian for the spherical to rectangular coordinate 
transformation is given by 


ôr 00 ag 
A(x, y.z) _ _ dy oy oy 
2,0, o ADI, 0, $) - det a 20 a Ó 
z oz ôz 
ör 00 ag 


sin@cos@ rcos 0cos $ -r sin Osin $ 
-det| sin@sing rcos@sing rsin 8cos $ 
cos 0 -r sin 8 0 


- r? sin 8 


Det[ { (Sin[0]Cos[o].r Cos[6]Cos[@],-r Sin[0]Sin[c]), (Sin[0]Sin[ob].r 
Cos[8]Sin[&],r Sin[0]Cos[0]), (Cos[0],-r Sin[6],0} ) J//Simplify 


Hence, the equation (6.18) becomes 


(6.21) 


Into y. 2dxdydz 
=f fff, 0, $), y(r, 8, $), z(r, 8, ®)) r? sin edrd6dó 


If f(x, y,z)=1, the triple integral is the volume of the solid region given by 


(6.22) 


V - fff, ,dxdydz- fff, sinedrdedó 


Example 6.28. Evaluate 


f[J,, 24v. 


where W is the solid region lying above the cone z-Sqrt[3x^2-3y^2] and 
inside the sphere x^2*y^24z^2-6z. 


Solution: 


Let us plot the cone z-Sqrt[3x^243y^2] and the sphere x^2+y^2+z^2=6z. 


ContourPlot3D[ (z--Sqrt[3x^243y^2 ],6z——x^2-y^2-z^2 | // Evaluate, 
{x,-3,3}, {y,-3,3}, {z,0,6} ,.Mesh->None,ContourStyle-> 

{ {Yellow,Opacity[0.8]}, {Blue,Opacity[0.3]} },PlotLegends- 
>"Expressions" | 


Figure 6.58. W is the solid region lying above the cone z-Sqrt[3x^243y^2] 
and inside the sphere x^2*y^24z^2-6z. 


In spherical coordinates, the equation of the cone z=Sqrt[3x2+3y*2] 
becomes 


r cos 0=Sqrt[3(x*2+y*2)| 
—Sqrt[3(r^2 sin^2 0 cos^2 d+r”2 sin^2 0 sin^2 d)] 


—Sqrt[3r^2 sin^2 0] 


r cos 0-Sqrt[3]rsin 0, tan 0=1/Sqrt[3]. 


0—tan^-1 1/Sqrt[3 ]| 276. 


and the sphere x^2+y^2+z^2=6z becomes 
r^2—6r cos 0 


r—6cos 0. 


Thus, the solid region is described in spherical coordinates by 


W={ (1,0,0) |0<=r<=6cos 0,0—0«-7/6,0«—d0-—2n }. 


The following module can be used to graph the solid region in spherical 
coordinates. The parameters passed to it are in the order of integration 
r, 0, Ọ as it is entered in Integrate command. 


viewSpherical[ (b ‚a ,b },{0 .f ,g },{r ,F ,G s,opts [7 
Module[ {twosurfaces,xp,yp,zp}, 

xp[rl_]:=rl Sin[@]Cos[q]; 

yp[rl_]:=r1 Sin[0] Sin[d]; 

zp[rl_]:=rl Cos[0]; 


twosurfaces=SphericalPlot3D[ {F,G}, (0,£g), {,a,b} ,Mesh- 
>None,PlotStyle->{ {Blue,Opacity[0.5]}, {Red,Opacity[0.5]}},AxesLabel-> 
ix y L J; 


Show[twosurfaces, Table[Graphics3D] {GrayLevel[0.8],Line[ {{xp[F],yp[F], 
zp[F] } , {xp[G],yp[G],zp[G]} n {,a,b,(b-a)/10} , {9,f,g,(g-f)/10} ,opts] 


] 


viewSpherical[ {,0,27}, {0,0,2/6}, {r,0,6 Cos[0]},PlotRange->All] 


^ 
r4 


Figure 6.59. The solid region W-((r,0,0) |0<=r<=6cos 
0,0«-0«-z/6,0——d0--2n]. 


So, the triple integral in spherical coordinates is given by 


SS fuz 4v Sal) (rcos 8)? r sinedrdedó 


_ [2n (r6 p6cos 0,4... 2 ac; 
Sf Pen „o T” cos'8sinOdrdOdó 
_ 85057 

32 


Integrate[r^4 Cos[0]^2 Sin[0], {,0,27}, {8,0,7/6}, {r,0,6 Cos[0]}] 


Example 6.29. Evaluate 
[ff Q* X +y’)av 


where W is the region inside the sphere x^2+y^2+z^2=25 and above the 
plane z=3. 


Solution: 


ContourPlot3D[ (x^2*y^2*z^2—-25,2——3 V//Evaluate, {x,-5,5}, {y,-5,5}, 
{z,-5,5},Mesh->None,ContourStyle-> { Automatic, {Green,Opacity[0.7]}}] 


Figure 6.60. The solid region is inside the sphere x^2+y^2+z^2=25 and 
above the plane z=3. 


The equation of the sphere x^2+y^2+z^2=25 in spherical coordinates is 
simply 


1=5, 
and the plane z=3 in spherical coordinates is 
z=3, rcos 0-23. 


1=3/(cos 0)-3 sec 0. 


The sphere and the plane intersect when 
5 cos 0-3. 


Thus, the sphere and the plane intersect at 0—cos^-1 3/5. 


The solid region is bounded below by the plane r=3 sec 0 and above by the 
sphere of radius 5, so the description in spherical coordinates is given by 


W={(r,0,)|3 sec 0—r«-5,0«-0--cos^-1 3/5,0<=d<=2n}. 


viewSpherical[ {,0,27}, {0,0,ArcCos[3/5]}, (r,3Sec[0],5) ,PlotRange-> 
{ (59,9 } , 15039 } , 155,94 } , ViewPoint-> {6,-6,- l A 


z 0; 


Figure 6.61. The solid region W={(r,9,@)|3 sec 8<=r<=5,0<=0<=cos*-1 
3/5,0<=0<=2r}. 


So, the triple integral in spherical coordinates is given by 


fff, (2+ +y)av 


=l 
= JAn gs, ser si e)? sin edraede 


_ 6567 
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Integrate[(2+12 Sin[0]^2)r^2 Sin[0], {,0,27}, (6,0, ArcCos[3/5]], 
{r,3Sec[0],5} ] 


Chapter 7. Line Integrals and Green's Theorem 


Initialization 


Clear["Global**"] 


(* The norm of vector v *) 


L[v_]:=PowerExpand[Simplify[Sqrt[v.v]]] 


(* The arc length of the curve a(t) from t=a to t=b *) 
arclength[a_,b ][a ]:-Integrate[L [a'tt]], {tt,a,b}, 


GenerateConditions-- False] 


SetOptions[Plot3D,PlotTheme->"Classic" |; 
SetOptions[ContourPlot3D,PlotTheme-- "Classic" ]; 
SetOptions[Plot,PlotTheme->"Classic",PlotStyle->AbsoluteThickness| 2 |]; 


SetOptions[ParametricPlot3D,PlotTheme-^"Classic",PlotStyle- 
>AbsoluteThickness[2]]; 


7.1 Line Integrals 


In this section we are going to study some constructions that have found 
considerable utility in science and engineering. These are the scalar and 
vector line integrals, namely the operation of integrating scalar and vector 
field along a curve, respectively. The curve may be in plane or in space. 
Some textbooks refer to such integrals as "curve" or "path" integrals. 


7.1.1 Scalar Line Integrals 


Definition 7.1. Scalar Line Integral 


Let c(t) be a parametrization of the curve C for a<=t<=b. If c'(t) is 
continuous and f(x,y,z) is a continuous scalar function whose domain 
includes C, then the scalar line integral of f along the path c is 


(7.1) 


fefe y, 2ds= f f(e(t) Ile" (OIldt 


ds is referred to as the line element or arc length differential of C. 


Note that we implicitly assume that the curve is three-dimensional, 
however, the definition is valid for two-dimensional plane as well. To 
evaluate the scalar line integral using Mathematica we provide two 
modules for this purpose: scalarLineInt2D and scalarLineInt3D 
corresponding to the two-dimensional case and the three-dimensional 
case, respectively. 


(* Scalar line integral as defined in Definition 7.1 *) 
(* for two-dimensional case: 

c is given parametrically by (x(t),y(t)) 

*) 

scalarLineInt2D[c_,f ,(a ,b }]:= 

Module[ {x,y,v}, 

x=c[t][[ 1]; 

y=e[t][[2]]; 

v=L[c'[t]]; 

Integrate[f[x,y ]*v, {t,a,b}] 


] 


(* Scalar line integral as defined in Definition 7.1 *) 
(* for three-dimensional case: 

c is given parametrically by (x(t),y(t),z(t)) 

*) 

scalarLineInt3D[c ,f ,(a ,b }]:= 

Module[ {x,y,z,v}, 


x=c[t][[1 1]; 


y=c[t][[2]]; 
z=c[t][[3]]; 
v=L[c'[t]]; 
Integrate[f[x.y,z]*v, {t,a,b}] 


] 


Example 7.1. Evaluate the scalar line integral of f(x,y,z)=z/(x^2 + y^2) along 
the path 


c(t)=(E^t cos 2t,E^t sin 2t,E^t), 0<=t<=5. 


Solution: 

Step 1. Compute ds. 

c'(t)=(E“t cos 2 t-2 E^ sin 2 t,E^t sin 2 t+2 E^t cos 2 t,E^t), 
\eWI=Sqrt[6] E^t, 


ds- |ic'(t)||dt 2 6 edt 


Clear[c,f] 
c[t_]:={E“t Cos[2t],E*t Sin[2t],E“t} 


f[x_,y_,z_]:=z/(x2+y’2) 


c'[t] 
L{c'[t]] 


Step 2. Write out the integrand and evaluate 
We have f(x, y,z)=z/(x*2 + y^2), so 
f(c(t))=f(E“t cos 2t, E^t sin 2t, E^t)-E^t/E^(2t). 
By equation (7.1): 
fcfe y, 2 d s- fft) Ile" (0 Idt 
5/6 e'dt 
= P J6 dt=5V6 


We may verify this using scalarLineInt3D module: 
scalarLineInt3D[c.f, (0,5 ] 


Example 7.2. Let c:[0,1]-> R be the wire c(t)=(t*2,2t) in the plane with 
mass density p(x,y)=3/4 y. Find the total mass of the wire. 


Solution: 
Step 1. Compute ds. 


c'(t)=(2t,2), 


Ic '(t)|| -Sqrt[4t^2--4 | -2Sqrt[ 1 -t^2], 


ds- ||c'(t)]]ldt 224 1«t? dt 


Step 2. Write out the integrand and evaluate 

We have the density p(x,y)=3/4 y, so 
p(c(t))7p(t^2,2t)-3/4 (2t)=3/2 t. 

By equation (7.1): 

Total mass = [.p(x, y, z) ds folct) I| c" (£l dt 


= fj3tu 18 dt 
-242-1 


Integrate[3t Sqrt[1--t^2], {t,0,1}] 
Clear[c,p] 

c[t_]:={t42,2t} 

p[x_.y_]:=3/4 y 


scalarLineInt2D[c,p, {0,1} ] 


If f=1, then equation (7.1) reduces to 


Pia 
(7.2) [,ds f; lle (idt. 
Equation (7.2) is the arc length of the curve C from t-a to t=b. 


Example 7.3. Find the arc length of the curve in Example 7.1: 


c(t)=(E“t cos 2t, E^t sin 2L,E^t), 0«-t«-5. 


Solution: 


By equation (7.2), the arc length of the curve is 


fcd s» fle (ld 
= fe e'dt- V6 (-1+e°) 


Integrate[Sqrt[6] E^t, {t,0,5}] 


Clear[c,f] 
c[t_]:={E“t Cos[2t],E*t Sin[2t],E*t} 


f[x_,y_,z_]:-=1 
scalarLineInt3D[c.f, {0,5 } ] 


Or using arclength module we get the same result: 


arclength[0,5][c] 


ParametricPlot3D[c[t], {t,0,5 } | 


50, 


\ 
50 | 


so 


Figure 7.1. The curve c(t)=(E“t cos 2t,E“t sin 2t,E”t). 


Suppose we wish to find the average value of a continuous function f along a 
curve C of finite length. Then we have the following definition: 


Definition 7.2. Average value of a continuous function f along a curve C 


Let C be the curve that has continuous derivative. If a scalar function f 
whose domain includes C is continuous, then the quantity 


_ [cf ds [cf ds 
[avg i [cds ~~ length of C 


is the average value of f along C. 


Example 7.4. Find the average y-coordinate of points on the path described 
in Figure 7.2. 


Solution: 


origin={0,0,0}; 

point[1]={2,0,0}; 
point[2]={2,1,0}; 
point[3]={0,1,1}; 
point[4]={1,0,2}; 


plotPoints=Graphics3D[ {PointSize[0.02],Red,Point[origin],Black,Point[ Arr 
ay[point,4]]},Boxed->True,Axes->True,AxesLabel->{"x","y","z"}]; 


plotArrows-Graphics3D[ {Blue,Arrow| {origin,point[1]}],Arrow[ {point[ 1],p 
oint[2]} |  Arrow| {point[2],point[3]}], Arrow] {point[3],point[4]} ]}]; 


plotTexts=Graphics3D[ {Text["(2,0,0)",{2,0,0.3}],Text["(2,1,0)", 
{2,1.3,0.4}], Text["(2,0,0)",12,0,0.3}],Text["(0,1,1)",{0,1,1.3}],Text[" 
(1,0,2)",11.3,0,1.93]3]; 


Show| {plotPoints,plotArrows,plotTexts} ,PlotRange-^ 1 {-2,2}, {-2,2}, 
{-2,2}} ViewPoint->{2,2,1.5}] 
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Figure 7.2. The path of Example 7.4. 


In this case, the average y-coordinate of points is defined by 


_ [ey ds _ ey ds 
[lav i l ds  lengthofC 


The length of C can be computed from Figure 7.2: 


length of C=2+1+-+ (0-2) « (1- 1)? « (1-0)? 


+, (1-0) «(0-12 «(2-1 
2-944414 414141 2345 «3 


The scalar line integral consists of 4 line segments: 


jJcydsz f, yds+ f, y ds» |, yds« f. yds 


where 

C1 is the line segment from (0,0,0) to (2,0,0), 
C2 is the line segment from (2,0,0) to (2,1,0), 
C3 is the line segment from (2,1,0) to (0,1,1), 


C4 is the line segment from (0,1,1) to (1,0,2). 


The parametric equations for C1, C2, C3 and C4 (respectively) are 
C1: c1(t)2[(2,0,0)-(0,0,0)]t--(0,0,0) 
=(2,0,0)t 


=(2t,0,0), 0<=t<=1. 


C2: c2(t)-[(2,1,0)-(2,0,0)]t-(2,0,0) 
=(0,1,0)t+(2,0,0) 


=(2,t,0), 0<=t<=1. 


C3: ¢3(t)=[(0,1,1)-(2,1,0)]t+(2, 1,0) 
=(-2,0,1)t+(2,1,0) 


=(-2t+2,1,t), 0<=t<=1. 


C4: c4(t)=[(1,0,2)-(0,1,1)]t+(0,1,1) 
=(1,-1,1)t+(0,1,1) 


=(t,-t+1,t+1), 0<=t<=1. 


The line integral becomes 


fey ds= fe, yds+ [. yds« [. yds+ fo yds 
= f0 le (ds fi tlez H Ids 
+, 1 les (dt fi (-t+1) Iles’ Ilde 
=0+ f! tlO, 1, 0)ildt 
+ fo I2, 0, 1) IIdt + fi t+ 120p, -1, 1) IIdt 
= fa tdt+vV5 [i dt+v3 [i (-t+1)d¢ 
=[$ e] «V5 +V3 [-18 +1], 


= il 
=" 5 +h V3 


So, 


~0.51694 
Clear[c1,c2,c3,c4,f] 
clft_]:={2t,0,0} 
c2[t_]:={2,1,0} 
c3[t_]:={-2t+2,1,t} 
cA[t_]={t,-t+1,t+1} 


f[x , y z] : =y 


1/(3+Sqrt[5]+Sqrt[3])*(scalarLineInt3D[c1,f, {0,1} ]+scalarLineInt3D[c2,f, 
{0,1} ]+scalarLineInt3D[c3,f, {0,1} ]+scalarLineInt3D[c4,f, {0,1} ])//N 


Example 7.5. Suppose C is the curve obtained by intersection the elliptic 
cylinder x^2/5+y^2=1 by the plane z=2y. Find the average value of 
f(x, y,z)=y E*x+z4 on C. 


Solution: 
The parametric equation of the elliptic cylinder x42/5+y*2=1 is 
t-> (Sqrt[5]cos t,sin t). 


The curve C obtained by intersecting the elliptic cylinder x42/5+y*2=1 and 
the plane z=2y may be parametrized as 


C: c(t)=(Sqrt[5]cos t,sin t,2sin t), 0<=t<=2n. 


Clear[c.f] 
c[t_]:={Sqrt[5]Cos[t],Sin[t],2Sin[t] } 


fx ,y.,z |=y E^x+z^4 


plot[ 1]=ContourPlot3D[ {x*2/5+y”2==1,2==2y},{x,-3,3},{y,-3,3}, 
{z,-3,3},Mesh->None,ContourStyle->{{Blue,Opacity[0.2]}, 
{Green,Opacity[0.4]} }]; 


plot[2]=ParametricPlot3D[c[t], {t,0,27},PlotStyle-> 
{AbsoluteThickness[2],Dashed,Red} ];Show[Array[plot,2]] 


Figure 7.3. The curve C is the intersection the elliptic cylinder x2/5+y*2=1 
by the plane z=2y. 


The length of C: 


Jods= fo" Ie (Dlldt 
=f" V5 si 
=), Il-v9 sint, cost, 2cost||dt 


-2457m 
fcfds- fe"f(e(t) II" (01d: 
= fe" (sin te"5 °°! + 16 sin t)\|-V5 sin t, cost, 2cost||dt 


= "V5 (sin te** °t + 16 sin‘ t) dt 


-1245 x 


Integrate[Sqrt[5]( Sin[t]E^(Sqrt[5]Cos[t])-16 Sin[t]^4), {t,0,27} ] 


The average value of f(x,y,z)=y E^x+z^4 on the curve C: 


scalarLineInt3D[c.f, {0,27} ] 


arclength[0,2z][c] 


Definition 7.3. Continuous center of mass in R? 


Let C be the curve that has continuous derivative. Suppose that a wire is 
bent in the shape of C and the mass density at each point (x,y,z) of the 
wire is ó(x,y,z). Then the center of mass of the wire is defined by 


- Sc x Ó(x,y,z) ds 
i L 6(x,y,z)ds ' 

-— Joy Wxy,z) ds 
i j^ ó(x,y,z)ds ' 

-E Sc z Ó(x,y,z) ds 
5 6(x,y,z) ds ` 


The integrals: Jox ó(x, y, z)ds s Joy O(x, y, z)ds and 


Jc Z0(x, y, z)ds are called the first moments of the wire about the x-, 
y- and z-axis, respectively. The coordinates of the center of mass ; is also 
called the centroid of the wire. 


Though Definition 7.3 is defined for continuous center of mass in R? „it is 
valid for the case in R? as well. 


Example 7.6. Find the center of mass of a spring in the shape of the circular 
helix: 


c(t)=1/Sqrt[2] (cos t,sin t,t), 


where 0«—t«—6 and the density of the spring is 6(x,y,z)=1+z as shown in 
Figure 7.4. 


Solution: 


The center of mass of the spring written as (X, Y, Z) are given by 


— [ox Ox y. z) ds — Joy ó(x, y, z) ds a Jez 6% y, z)ds 
= fe 6(x, y,z) ds 5 fe 6(x, y,z) ds Bu Sc O(x,y.z)ds | 


First we compute the total mass: 
total mass = f, (x, y, z)ds 
= Lo llc" (idt 
= + pi rL + t) Il Csin t, cos t, 1) || dt 
- (67/4, L 
= f jt 3 tdt 
-6n+9Y2 m? 
Next, we compute the first moments: 


[cx ôx, y, z)ds 


6 1 
zi ^ “TS cos f 6(e(t)) || c' (t) || dt 
_ (87m. 1, ES a 
one ost (1+ — ZN; ( sin t, cost, 1)||dt 
_ or ri 
= {i 75 cost (1+ y tat 
-0 


(* First moment about the x-axis *) 


Integrate[ 1/Sqrt[2] Cos[t](1-- 1/Sqrt[2] t), {t,0,677} ] 


[cy Ol, y, Dds 


EE T- sint (c(t) Ile" (0 || dt 

- fê "A sin t(1+= 0I Æ (-sint, cost, 1) || dt 
=p" ein t(1++ t)dt 

=-37T 


(* First moment about the y-axis *) 


Integrate[ 1/Sqrt[2] Sin[t](1+1/Sqrt[2] t), {t,0,67}] 


[;zó( y, 2ds 
= fo" oz tó(e(t) llc" Hdt 
= fo ib ( +H Hil (sint, cost, 1)||dt 
=o" ag tts zu tat 
-9J2 r? «36 m° 


(* First moment about the z-axiz *) 


Integrate[ 1/Sqrt[2] t(1--1/Sqrt[2] t), {t,0,67}] 


So, 


_ [ox Oxy, z)ds 
i jc ó(x,y,z)ds 


= foy Ox, y,z)ds -3 7T 


1 
» fcóG.y.z2ds  6r494275? — 2:342m 


Je 2 6x, y. z) ds 9 J2 12436 1? 3n(V2«4n) 


i [ox y. z) ds ^ 674942 ne 24342 n 


Clear[c,6,x6,y6,z6] 
c[t_]:=1/Sqrt[2] {Cos[t],Sin[t],t} 
ó[x ,y ,z ]:=1+z 

xó[x ,y ,z L-x*ó[x,yz] 

yo[x .y ,z ]—y*óbxyz] 


zó[x ,y .z ]-—z*é[x,y.z] 


(* Total mass *) 


scalarLineInt3D[c,6, {0,67} | 


(* Compute the center of mass x-coordinate *) 


xc-scalarLineInt3D [c,x0, {0,67} |/scalarLineInt3D[c,0, {0,67} |//Simplify 


(* Compute the center of mass y-coordinate *) 


yc=scalarLineInt3D[c,y6, {0,67} |/scalarLineInt3 D[c,6, {0,67} |//Simplify 


(* Compute the center of mass z-coordinate *) 


zc-scalarLineInt3D[c,zó, {0,67} |/scalarLineInt3 D[c,6, {0,67} |//Simplify 


plot[1]-ParametricPlot3D[e[t], {t,0,67},BoxRatios->{1, 1, 1},AxesLabel-> 
Ix. "y" Zoek 


plot[2]-Graphics3D[ {Red,PointSize[0.02],Point[ {xc,yc,zc}]}]; 


Show [Array [plot,2 ]] 


10 | 


Figure 7.4. The wire with density 5(x,y,z)=1+z in the shape of the circular 
helix c(t)=1/Sqrt[2] (cos t,sin t,t) and its center of mass (red point). 


7.1.2 Vector Line Integrals 


Definition 7.4. Vector Line Integral 
Let c(t) be a parametrization of the curve C for a<=t<=b. If c'(t) is 
continuous and F(x,y,z) is a continuous vector function whose domain 


includes C, then the vector line integral of F along the path c is 


(73) 


[F(x y, 2:ds- [?F(c():c' (dt 


ds is referred to as the differential of position along C. 


Note that Definition 7.4 is valid for two-dimensional plane as well. To 
evaluate the vector line integral using Mathematica we provide two 
modules for this purpose: vectorLineInt2D and vectorLineInt3D 
corresponding to the two-dimensional case and the three-dimensional 
case, respectively. 


(* Vector line integral as defined in Definition 7.4 *) 
(* for two-dimensional case: 

c is given parametrically by (x(t),y(t)) 

J 

vectorLineInt2D[c ,f ,(a ,b j|: 


Module[ {x,y,v}, 
x=c(t][[1]]; 

y=c[t][[2]]; 

v=c'[t]; 
Integrate[f[x.y].v, {t,a,b}] 


] 


(* Vector line integral as defined in Definition 7.4 *) 
(* for three-dimensional case: 

c is given parametrically by (x(t),y(t),z(t)) 
t) 

vectorLineInt3D[c ,f ,(a ,b }]|:= 
Module[ {x,y,z,v}, 

x=c[t][[ 1]; 

y=e[t][[2]]; 

z=c[t][[3]]; 

v=c'[t]; 

Integrate[f]x,y,z].v, {t,a,b } ] 


] 


Example 7.7. Evaluate vector line integral of F=x i-y j+z k along the 
path c(0)=(t,2t*2,3t*3) for 0<=t<=1. 


Solution: 

Using equation (7.3) we have 

J.F(x, y, 2): ds= ß F(c(t))-c'(t)dt 
= f, F(t, 20, 36) c'(t)dt 
= f(t, -20,306) (1,46, 91?)dt 
= fj (t-80+27¢)dt=3 


Integrate[t-8t43+27tS, {t,0,1}] 


Clear[c,F] 
c[t_]:={t,2t^2,3t^3} 


F[x_,y_,z_]:={x,-y,z} 
vectorLineInt3D[c,F, {0,1} ] 


Figure 7.5 shows the curve c(t)7(t,2t^2,3t^3) in the vector field F=x i-y 
j*z k. The magnitude and the sign of a vector line integral depends on 
the angles between F and tangential vector c'(t). In this example most of 
the dot products F(c(t)).c'(t) are positive because the angles between the 
vectors are acute. 


(* Plot the curve, some points on the curve and the vector fields 
at these points *) 

a=0;b=1; 

nn=5; 

A=(b-a)/nn; 


plot[1]-ParametricPlot3D[c[t]//Evaluate, {t,a,b} ,AxesLabel-> 
{"x","y"","z"} BoxRatios->{1, 1, 1},PlotRange->{{0,1.8},Automatic, 
{0,3.2} 3]; 


plot[2]=VectorPlot3 D[F[x,y,z], {x,0,3}, {y,0,3},{z,0,3}, VectorPoints- 
>10,VectorScale-> (0.08, 0.25, Automatic}, VectorStyle->Gray |; 


plot[3 ]=Graphics3D[ {Red,PointSize[0.02],Point[ Table[c[(k-1) A], 
{k,2,nn}]]; ]; 


plot[4]-Graphics3D[ {Blue,Arrowheads[0.02], Table[ Arrow[ {c[(k-1) A],c[(k- 
1) A}+F[e[(k-1) A][EL]e[Ok- 1) A]IE2]]eECk- 1) AJ], tk.2.nn 5 J]; 


plot[5]7Graphics3D[ (Red, Arrowheads[0.03], Table[ Arrow[ {c[(k-1) A],c[(k- 
1) AJ]+0.2c'[(k-1) A]1], {k,2,nn}]}]; 


Show [Array [plot,5]] 


Figure 7.5. The curve c(t)=(t,2t®2,3t3) in the vector field F=x i-y j+z k. 


Example 7.8. Determine the line integral of F=2y i-3j along the ellipse 
parametrized by c(t)=(3+4cos t,2+2 sin t) for 0«—t«—2m. 


Solution: 


Using equation (7.3) we have 


[FG y) ds= f°" F(c(): c (tdt 
= fo" F(3+4 cost, 2+2sint)-c'(t)dt 
= fo" (4+4sint, -3)-(-4sint, 2cos t) dt 
= f°” (-16 sin t- 16 sin* t -6cos t) dt 
--167t 


Integrate[-16Sin[t]-16Sin[t]^2-6Cos[t], {t,0,27}] 


Clear[c,F] 
c[t_]:={3+4Cos|[t],2+2Sin[t] } 


F[x_,y_]:={2y,-3} 
vectorLineInt2D[c,F, {0,27} ] 


The magnitude of F is larger in the top half of the ellipse (see Figure 
7.6). The dot products F(c(t)).c'(t) are negative because the angles 
between the vectors are obtuse. So the negative contribution from the 
top half appears to dominate the positive contribution of the bottom 
half. Hence, the total line integral is negative. 


(* Plot the curve, some points on the curve and the vector fields 
at these points *) 
a=0;b=27; 


nn=8; 


A=(b-a)/nn; 


plot[ 1 ]=ParametricPlot[c[t]//Evaluate, {t,a,b},AxesLabel-> 
Ux","y" 1, PlotRange-> { {-2,9}, {-2,6}}]; 


plot[2]=VectorPlot[F[x,y]//Evaluate, {x,-2,9}, {y,-2,6}, VectorPoints- 
>10,VectorScale-> (0.08, 0.25, Automatic}, VectorStyle->Gray |; 


plot[3]-Graphics| {Red,PointSize[0.02],Point[Table[c[(k-1) A], {k,1,nn}]]}]; 


plot[4]-Graphics| {Blue, Arrowheads[0.02], Table[Arrow[ {c[(k-1) A],c[(k-1) 
A]+0.3F[e[(k-1) A][EL]T,c[k- 1) AJ[[2]]]}], tk, 1mm} 1} ]; 


plot[5]=Graphics|[ {Red,Arrowheads[0.03],Table[ Arrow] {c[(k-1) A],c[(k-1) 
A]+0.3c'[(k-1) A]} ], {k,2,nn} ]}]; 


Show [Array [plot,5]] 


Figure 7.6. The curve c(t)=(3+4cos t,2+2 sin t) in the vector field F=2y i- 
3j. Note that the magnitude of F is larger in the top half of the ellipse 
than the bottom half. 


Consider F to be a force field in space. Then the line integral fF = 
represents the work done by F on a particle as it moves along the path c. 


Suppose c(t)=(x(t),y(t),z(t)) has continuous derivative and 


F(x, y,Z)=M(x,y,Z)itN(Xy,Z)jt P(X y,z)k. 


is a continuous vector field. Then, by equation (7.3) of Definition 7.4 we 
have 


[FO y, z) ds- fP Fet) c (t)dt 
= [? (Mi+Nj+Pk)-(x'(), y (0, z (D) at 
= f? (Mx'(t)+Ny'(t)+Pz'(t))dt 


Since d X 2 x' (t) dt dy=y'(t)dt dz -z'(t)dt ‚ we obtain the 
differential form of the vector line integral: 


[.Mdx+Ndy+Pdz 


Hence, 


f, Fx. y, 2) ds - [; F(c(0): e (dt 
= [Mdx+Ndy+Pdz 


Example 7.9. Find the work done by the force field F=(x y-z^2)i*ty^2 j+x 
z^2 k on a particle as the particle moves around the perimeter of the 
square with vertices (1,1,3), (-1,1,3), (-1,-1,3), (1,-1,3), oriented 
counterclockwise about the z-axis (Figure 7.7). 


Solution: 


Clear[F] 


F[x ,y ,z ]:={x y-z^2,y^2,x z”2} 


PRGS 

pI2]- 65555; 

PP bus 

pletely: 

plot[ 1 ]=VectorPlot3 D[F[x,y,z]//Evaluate, {x,-2,2},{y,-2,2}, 

{z,2,4} VectorPoints->5, VectorScale->{0.1, 0.2, Automatic}, VectorStyle- 
>Gray]; 

plot[2]-Graphics3D] f PointSize[0.02], Red,Point[Array [p.4]]) ]; 


plot[3]-Graphics3D[ {AbsoluteThickness[1.5],Line[ 1 {p[1],p[2]}, 
{pl2],pl3]},1pl31,pl4]3,{pl#],p[11} 313]; 


Show[Array[plot,3], Axes-» True, AxesLabel-^ {"x","y","z"}, PlotRange-> 
{ 2,24 > 2,2} , {2,4} 3] 
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Figure 7.7. The square with vertices (1,1,3), (-1,1,3), (-1,-1,3), (1,-1,3) in the 
vector field F=(x y-z^2)i*y^2 j+x z^2 k. 


There are four line segments to consider. The line equations are given 
(respectively) by orienting counterclockwise about the z-axis: 


cl(t)=(1-2t,1,3), for 0<=t<=1, 
c2(t)=(-1,1-2t,3), for 0<=t<=1, 
c3(t)=(-1+2t,-1,3), for 0<=t<=1, 


c4(t)=(1,-142t,3), for 0<=t<=1. 


Clear[c1,c2,c3,c4] 


cl[t ]-p[1]*(p[2]-pL1 Dt 
c2[t_]=p[2]}+(p[3]-p[2])t 
c3[t_]=p[3]}+(p[4]-p[3])t 
c4[t_]=p[4]}+(p[1]-p[4])t 
{1-2 t,1,3} 

11243) 

{-1+2 t,-1,3} 


{1,-1+2 t,3} 


Total work done: 


[,F ds= [I Fes): ei (dts [1 F(ea(0): c (dt 
+ SLF) es’ (t) dt + fi F(ca(D): ca (dt 
[‚F  ds= f! F(1-2t, 1,3): (-2, 0, 0)dt 
«[SSF(-1, 1-21, 3)-(0, -2, 0)dt 
+1 F(-1+2t, 1,3) (2,0, 0)dt 
«AF. -1+2t, 3): (0, 2, 0)dt 
-18-2-1842 
3 3 
-0 
vectorLineInt3D[c1,F, 10,13 ] 
vectorLineInt3D[c2,F, 10,13 ] 


vectorLineInt3D[c3,F, (0,13 ] 


vectorLineInt3D[c4,F, {0,1} ] 


Example 7.10. Evaluate Jc zdx+xdy+ydz , where C is the curve 


obtained by intersecting the surfaces z-x^2 and x^2+y^2=4 and oriented 
counterclockwise around the z-axis. 


Solution: 


The line integral Jozdx+xdy+ydz 


integral: 


may be written as vector line 


J.F-ds=[.zdx+xdy+ydz 


? 


where F=z 1+x jty k. 


Since the surface x^2+y^2=4 is a cylinder of radius 2, the parametric 
equation is given by 


(s,t)->(2cos s,2sin s,t). 
So, we may parametrize the curve of intersection as 
c(t)=(2cos s,2sin s,Acos^2 s), 


where s ranges from 0 to 2z which orientation is counterclockwise around 
the positive z-axis. 


Clear[F,c] 


c[s_]:={2 Cos[s],2Sin[s],ACos[s]^2] 


F[x ,y oz ]--izXyj 


plot[1]-ContourPlot3D[z--x^2, {x,-3,3}, {y,-3,3}, {z,-1,5},AxesLabel-> 
{"x"""y""z" Mesh->None,ContourStyle->Opacity|0.2],PlotTheme- 
>"Classic"]; 


plot[2]-ContourPlot3D[x^24y^2—-4, {x,-3,3}, {y,-3,3},{z,-1,5},AxesLabel-> 
{"x","y","z"} Mesh->None,ContourStyle->Opacity[0.2],PlotTheme- 


>"Classic"]; 


plot[3]-ParametricPlot3D[c[t], {t,0,27},PlotStyle-> 
{Dashed,Blue,Thickness[0.01]}]; 


Show[Array[plot,3]] 


4 


Figure 7.8. The curve of intersection by the surfaces z-x^2 and x^2*y^2-4. 


So, 


JF ds=[.zdx+xdy+ydz 
= f°" [(4 cos? s) (-2sin s) d's 
+ (2 cos s) (2 cos s) d s + (2 sin s) (-8cosssin s) ds] 
= f°" (-8 cos? ssin s 4 cos? s - 16 cos ssin? s)d's 


=47 


Integrate[-8 Cos[s]^2 Sin[s]--4Cos[s]^2-16Cos[s]Sin[s]^2, {s,0,27} ] 
The result checks with the one using the vectorLineInt3D module: 
vectorLineInt3D[c,F, {0,27} ] 


plot[1]-ParametricPlot3D[c[t]//Evaluate, {t,0,27},AxesLabel-> 
{"x","y"","z"} PlotRange- AI]; 


plot[2]=VectorPlot3 D[F[x,y,z]//Evaluate, {x,-3,3}, {y,-3,3}, 

{z,-1,5}, VectorPoints->5, VectorScale->{0.15, 0.2, Automatic}, VectorStyle- 
>Gray,AxesLabel->{"x","y","z"}]; 

plot[3]-Show [Array [plot,2 ]]; 


Show [GraphicsGrid| { {plot[1],plot[3]} } ],‚ImageSize->650] 
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Figure 7.9. The curve of intersection c(t)=(2cos s,2sin s,4cos^2 s) in the 
vector field F=z i*x jty k. 


Example 7.11. Find the work done by the force field F=x i+x^2 j ona 
particle as the particle moves from (-1,0) to (1,0) in the xy-plane as 
shown in Figure 7.10; 

(a) along the x-axis, 


(b) along the semicircle y-Sqrt[1-x^2], 


(c) along the dotted polygonal path. 


Clear[c,F] 
c[t ]:- 1Cos[t],Sin[t]) 


F[x ,y. 7 x,x^2] 


pl1]=1-1,05; 

p[2]-10.15; 

pI3]- (155 

p[4]-11,05; 

plotSemicircle-ParametricPlot[c[t], {t,2,0},AxesLabel->{"x"","y"} ]; 
plotPoints=Graphics[ {PointSize[0.02],Red,Point[ Array[p,4]]} ]; 
plotArrows-Graphics[ {Dashed, Arrow[ { {p[1],p[2]}, {p[2],p[3]}, 
{p[3],p[4]} }],Text["c1", {-0.5,0.4} ],Text["c2",{0.5,0.95} ],Text["c3", 
{0.95,0.5}]}]; 

plot[ 1]=Show/[plotSemicircle,plotPoints,plotArrows]; 


plot[2]- VectorPlot[F[x,y |//Evaluate, {x,-1,1},{y,0,1},VectorPoints- 
78, VectorScale-» (0.1, 0.5, Automatic}, VectorStyle->Gray]; 


plot[3]-Show [Array [plot,2 ]]; 


Show[GraphicsGrid[ { {plot[1],plot[3]} } ],ImageSize->650] 
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Figure 7.10. A particle moves from (-1,0) to (1,0) in the force field F=x 
i+x^2j. 


Solution (a) 


Since dS - dXi*dyj. usine equation (7.3) the work done along the x-axis 
from x=-1 to x=1 is 


J.F-ds= fL. (xi X? j) (dxi+dy j) 
= fL (xdx+x? dy) 
Since y=0, so dy=0 Therefore, 


J.F-ds= vox dx =[2 x], -0 


Solution (b) 
The semicircle y-Sqrt[1-x^2] may be parametrized by 


c(t)=(cos t,sin t), for 0<=t<=z. 


The work done along the semicircle from x=-1 to x=1 is 
JF ds=[ F(c(t))-c'(t)dt 

= [PF(cos t, sint)-(-sint, cost) dt 

= f^ (cos t, cos? t)-(-sint, cost) dt 

= f^ (-cos t sin t + cos? t) dt - 0 


Integrate[-Cos[t]|Sin[t]*-Cos[t]^3, {t,7,0} ] 


vectorLineInt2D[c,F, {2,0} ] 


Solution (c) 

The polygonal path consists of three line segments: 
cl(t)=(-1+t,t), for 0<=t<=1, 

c2(t)=(t, 1), for 0<=t<=1, 


c3(t)=(1,1-t), for 0<=t<=1. 


Total work done along the polygonal path: 


IF -ds- Ji Fles(t))-e1' (t)dt+ f. F(co(t))-e2' (dt 
+ SFA) cs (D dt 
JcF ds= fi F(-1+t, (1, 1)d¢ 
+f F(t, 1)-(1, O)dt 
+f AF. 1-£)-(0, -1)dt 
1 2 


6 2 3 


Clear[c1,c2,c3] 
cl[t_]:={-1++,t} 
c2[t ]:={t,1} 


c3[t_]:={1,1-t} 


(* Total work done along the polygonal path *) 


vectorLineInt2D[c1,F, {0,1} ]+vectorLineInt2D[c2,F, 
{0,1} ]+vectorLineInt2D[c3,F, {0,1} ] 


We see that the work done by the force field F=x i*x^2 j from (-1,0) to 
(1,0) depends on the path chosen. We say that F does not have path- 
independent line integrals. 


Example 7.12. Redo Example 7.11 but with the force field F=2x sin y 1*x^2 
COS yj. 


Clear[c,F] 
c[t ]:- 1Cos[t],Sin[t]) 


F[x_,y_]:={2x Sin[y],x^2 Cos[y]) 


p[1]-1-1.05; 

p[2]- 10.15; 

PIIFtL I; 

p[4]- 11.0; 

plotSemicircle-ParametricPlot[c[t], {t,7,0},AxesLabel->{"x","y"}]; 
plotPoints-Graphics[ {PointSize[0.02],Red,Point[ Array[p,4]]} |; 
plotArrows-Graphics[ | Dashed, Arrow[ { {p[1],p[2]}, {p[2],p[3]}, 


£p[3],p[41} }], Text["c 1", {-0.5,0.4}], Text[" c2", 10.5,0.95 ],Text["c3", 
10.95,0.51]4]; 


plot[ 1]=Show/[plotSemicircle,plotPoints,plotArrows]; 


plot[2]- VectorPlot[F[x,y |//Evaluate, {x,-1,1},{y,0,1},VectorPoints- 
78, VectorScale-» (0.1, 0.5, Automatic}, VectorScale->Gray |; 


plot[3]-Show [Array [plot,2 ]]; 


Show [GraphicsGrid| { {plot[1],plot[3]}}],lmageSize->650] 
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Figure 7.11. A particle moves from (-1,0) to (1,0) in the force field F=2x sin 
y i*x^2 cos yj. 


Solution (a) along the x-axis. 


Since dS - dXi*dyj. usine equation (7.3) the work done along the x-axis 
from x=-1 to x=1 is 


J.F-ds= f'__,(2xsinyi+x? cosy j)-(dxi+dy j) 
= fi__,(2xsiny dx +x? cos y dy) 
Since y=0, so Y =9 | Therefore, 


J.F-ds=f'__,0dx=0 


Solution (b) along the semicircle y-Sqrt[1-x^2]. 


vectorLineInt2D[c,F, {2,0} ] 


Solution (c) along the dotted polygonal path. 


Clear[c1,c2,c3] 
cl[t_]:={-1++,t} 
c2[t ]:={t,1} 


c3[t ]:={1,1-t} 


vectorLineInt2D[c1,F, {0,1} ] 
vectorLineInt2D[c2,F, (0,1) ] 


vectorLineInt2D[c3,F, (0,1) ] 


(* Total work done along the polygonal path *) 


vectorLineInt2D[c1,F, (0,1) ]+vectorLineInt2D[c2,F, 
{0,1} ]+vectorLineInt2D[c3,F, {0,1 1] 


In this example, the work done by the force field F=2x sin y 1*x^2 cos yj 
along the three different paths give the same result. However, how do we 
know if there is no other path that gives different result? As a matter of fact, 


we shall see later that this vector field has indeed path-independent line 
integrals. First, we shall give the definition of what we mean by path- 
independent line integrals. 


Definition 7.5. Path-independent line integrals 


Let C1 and C2 be any two simple, oriented curves that have continuous 
derivatives from A to B. A continuous vector field F has path- 
independent line integrals if 


NE a duc 


Definition 7.5 implies that the line integral of F along a path from A to B 
depends only on the endpoints A and B, not on the particular path 
followed. 


From equation (7.4) we obtain 


Jc F- ds- JF: ds-0 


Since C1 and C2 are oriented curves, the second line integral on the left- 
hand side implies that the integral is from B to A. Thus, we may 
consider a closed curve C such that the line integral is the circulation of 


F around C and denote it with the symbol $ that satisfies 
(7.5) 


fF ds= f. F:ds- f F:ds=0 


This fact leads to the following theorem: 


Theorem 7.6. Closed integrals 


Let F be a continuous vector field. Then F has path-independent line 


integrals if and only if fF "desp for all simple, closed curves C (that 
has continuous derivatives) in the domain of F. 


Theorem 7.7. Conservative vector field 


Let F be defined and continuous on a domain P € R? . Suppose there 
exists a function V such that F - VV . Then F - VV if and only if F has 
path-independent line integrals over curves in D. If c is a path from A to 
B in D, then 


(7.6) [.F'ds- V(B)- V(A) | 


We call F a conservative vector field and V a potential function for F. 


Theorem 7.7 implies that a vector field F has path-independent line 
integrals when it is a conservative vector field and that the line integral 
of F along any path is determined by the values of the potential function 
V at the endpoints of the path. In practice there is a simple criterion we 
can use to find out if a vector field is conservative, which is stated in the 
following theorem: 


Theorem 7.8. Criterion for conservative vector fields 


Let F be a vector field that has continuous derivative whose domain is a 
simply-connected region D in RÊ. Then F=VV for some potential 
function V on D if and only if V xF = 0 at all points of D. 


A region D is said to be connected if any two points in D can be joined 
by a path whose image lies in D. Thus, a simply-connected region is 
simple and connected. 


As an example, consider the vortex field (Figure 7.12) given by F=(- 
y/(x^2 + y^2),x/(x^2 + y^2)). It can be shown that V xF =0 , However, F 
is not defined at (x,y)=(0,0). Therefore, the domain of F must exclude 
this point in order to be simply-connected (see also Example 7.17). 


Curl[ {-y/(x^2+y^2),x/(x^2+y^2),0}, {x,y,z},"Cartesian"]//Simplify 


VectorPlot[ (-y/(x^2y^2),x/(x^2-y^2)), {x,-1,1}, {y,-1,1}, VectorPoints- 
>10,VectorScale-> 10.08,0.4, Automatic } ] 


0.5} 
0.0} b 
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Figure 7.12. The vortex field F=(- y/(x^2  y^2),x/(x^2 + y^2)). 


These definitions and theorems provide theoretical foundations for 
conservative vector field which plays important role in physics and 
engineering. The readers are invited to consult advanced textbooks for 
proofs. Next, we give more examples to solidify our understanding of line 
integrals and particularly conservative force fields. 


Example 7.13. (a) Verify that the force field F in Example 7.12 is 
conservative. 


(b) Find a scalar-valued potential function V for F such that F - VV, 


Solution (a) 


Recall the force field F in Example 7.12: 


F=2x sin y i*x^2 cos yj. 


To evaluate the curl of F we set it to be three-dimensional by adding a 
zero z-component. So, 


i j k 
2 2 3 
VxF= Ox Oy Oz 


2xsiny x^cosy 0 


=0i-0j+(2xcosy-2xcosy)k 
zü 


By Theorem 7.8, F is conservative. 


Clear[F] 


F[x_,y_]:={2x Sin[y],x^2 Cos[y]) 


Curl[Join[F[x,y], {0} ], {x,y,z},"Cartesian" | 


Note that we have used Join command to set F to be three-dimensional 
by adding a zero z-component. 


Solution (b) 


Let F Z VV . Then 


QV i, V i 


- in vix? TR ov 
F=2xsinyi+x cos yj= 7i ay | 
So, 
av AV _,2 
m = — =X COS 
(7.7) "T Any D y 
av 


Integrating ôx with respect to x gives 
(7.8) 


V(x, y)= [ S dx=x° siny « P(y) 


where P(y) is a function of y. 


Differentiating equation (7.8) with respect to y and compare it with the 
second equation in (7.7), we see that P(y) must be a constant. Hence, 


V(x, y)=x*2 sin y+C, 


where C is constant of integration. 


Here, we provide a Mathematica module called findScalarPotential2D 
to find the scalar-valued potential function if given a two-dimensional 
vector field F: 


(* Find the scalar-valued potential function for F 


Requirement: F is conservative and two-dimensional given by F(x,y) 


*) 

findScalarPotential2D[F ]:— 

Module[ {Fx,dFy,dPy,Py}, 

Clear[P ]; 

Fx=Integrate[F[x,y][[1]],x]+P[y]; 

dFy-D[Fx,y |; 
dPy=Solve[dFy==F[x,y][[2]],D[Ply].y]]/.Rule->Equal//Flatten[#, 1 ]& ; 
Py=DSolve[dPy,P[y],y]; 


Fx/.Py 


] 


Now, we can check our result using findScalarPotential2D module: 


findScalarPotential2D[F] 


Example 7.14. Consider the line integral 


[.2xydx+(x°+2yz)dy+y*dz 


(a) Evaluate this integral, where C is the line segment from (0,0,0) to (1,1,1). 


(b) Evaluate this integral, where C is the path from (0,0,0) to (1,1,1) 
parametrized by t->(t,t®2,t*3), for 0<=t<=1. 


Solution (a) 
We may write F=2x y 1*(x^242 y z) jty’2 k. 


Since dS - dxi«dyj*dzk so 


[.F' ds» [.2xydx+(x’+2yz)dy+y’dz 


In this case, the line segment may be parametrized by 


C1: cl(t)=(t,t,t), for 0<=t<=1. 


fa F- ds = Gt) e (dt = foF(t, t, t))-(1, 1,1)dt 
= (217,322, t7)-(1, 1, 1)dt 
= fe? dt 
=2 

Clear[c1,F] 

cl[t_]:={t,t,t} 


F[x ,y. ,z ]:={2x y,x42+2y z,y*2} 


vectorLineInt3D[c1,F, {0,1} ] 


Solution (b) 
In this case, the path c2 is parametrized by 


C2: c2(t)-(6t^2,t^3), for 0<=t<=1. 


SF ds = oF (colt) e2' (dat = F(t, ?, 9))- (1,24, 30)at 
SpOrT rar CLL or at 
= [2° +2t (P +26)+3]at 
22 


Integrate[2 t^3+2 t (t^2+2 t^5)+3 t^6, {t,0,1}] 


Clear[c2] 


c2[t_]:={t,t^2,t^3} 
vectorLineInt3D[c2,F,{0,1}] 


Note that the line integral 
[.2xydx+(x’+2yz)dy+y’dz 


gives the same result for both paths. We can verify if the force F=2x y it 
(x42+2 y z) j*y^2 k is conservative by evaluating 


i j k 
2 3 2 
VxF= Ox Oy Oz 
2xy x*+2yz y? 
=(2y-2y)i-(0-0)j+(2x-2x)k 
=0 


By Theorem 7.8, F is conservative. 


Curl[F[x,y,z], {x,y,z},"Cartesian"] 


plot[1]-ParametricPlot3D[ {c1[t],c2[t]}//Evaluate, {t,0,1},AxesLabel-> 
Ux" "y", "z^. PlotStyle->{ {AbsoluteThickness[2],Green}, 
{AbsoluteThickness[2],Red}},PlotRange->All]; 


plot[2]=VectorPlot3 D[F[x,y,z]//Evaluate, {x,0,1},{y,0,1}, 
{z,0,1},VectorPoints->5, VectorScale->{0.15, 0.2, Automatic}, VectorStyle- 
>Gray]; 

plot[3]-Show [Array [plot,2 ]]; 


Show [GraphicsGrid| { {plot[1],plot[3]} } ],ImageSize->650] 
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Figure 7.13. Two different paths with the same endpoints in the conservative 
vector field F=2x y 1*(x^242 y z) j*y^2 k. 


Example 7.15. Find the scalar-valued potential function V for F in 
Example 7.14. 


Solution: 

Recall the vector field F given in Example 7.14: 
F=2x y i*(x^242 y z) j*y^2 k. 

Let F Z VV , Then 


So, we have 


oV cL AP. ôV 2 
— = — —X^-2VyZ — = 

(7.9) ôx ar ] oy y , oO y S 
ôV 


Integrating 8x with respect to x gives 
(7.10) 


V(x, y, z)= [ S dx x! y « Pty, z) 


where P(y,z) is any function of y and z. 


Differentiating equation (7.10) with respect to y and compare it with the 
second equation in (7.9), we see that 


IV =x? + 9 2 y? 42 yz 
Oy Oy . 
So, 
P.» 
— = zZ 
oy y . 

ôP 


Integrating ay with respect to y gives 
P(y.z)-y^2 Z+Q(2), 

where Q(z) is a function of z alone. So, 
(7.11) V(x,y,z)=x^2 y+P(y,z) 
=x^2 y+y^2 z+Q(z) 


Finally, differentiating equation (7.11) with respect to z and compare it with 
the third equation of (7.9): 


V _,2 T ENS. 
x y TORY 


Therefore, Q(z)=C is a constant. 
Thus, a scalar potential for the original vector field F is given by 


V(x,y,zZ)-x^2 y*y^2 z4C. 


Similar to findScalarPotential2D module here is one called 
findScalarPotential3D to find the scalar-valued potential function for 
three-dimensional vector field F: 


(* Find the scalar-valued potential function for F 
Requirement: 

F is conservative and three-dimensional given by F(x,y,z) 
2) 

findScalarPotential3D[F_]:= 

Module[ {dFy,dPy,dFz,dQz,Qz,P,Q}, 
Fx=Integrate[F[x,y,z][[1]],x]; 

dF y=D[Fx+P[y,z],y]; 
dPy=Solve[dFy==F|x,y,z][[2]],D[Ply.z],y]][[1,1,2]]; 
Fy=Integrate[dPy,y]; 

dFz=D[Fx+Fy+Q[z],z]; 


dQz=Solve[dFz==F[x,y,z][[3]],D[Q[z].z]]/-Rule->Equal//Flatten[#, 1 | &; 


Qz-DSolve[dQz,Q[z].z]; 


Fz-Q[z]/.Qz; 
Fx+Fy+Fz 


] 


Let us obtain the potential function for F using findScalarPotential3D: 


Clear[F] 


F[x ,y ,z | 22x y,x42+2y z,y*2} 


findScalarPotential3D[F] 


We might want to verify our potential function V such that F 2 VV : 


Grad[x^2 y+y”2 z+C[1], {x,y,z},"Cartesian" |--F[x,y,z] 


Example 7.16. Suppose a vector field is given by 


F=(2x y z-y^2 z^3) i-N(x,y,Z)j*(x^2 y-3x y^2 z^2)k. 


(a) Find N(x,y,z) such that F is conservative. 


(b) Find a scalar potential function for F. 


Solution (a) 


By Theorem 7.8 the criterion for a vector field to be conservative is the 
curl of F vanishes, 


i j k 
2 2 2 
VxF=0= Ox oy Oz 


(2xyz-y* Z) N(x, y, z) (x° y-3xy? z?) 
So, we have 


(3 -exy zi -2N i-[2xy-3y^ Z)-(2xy -3y* Z]j 


«(3 -2xz«2yz?)k-o 


x! -6xy z - 88 2o. 
0z 

ON - X? -6xy zZ. 

Oz 


ON -2xz+2yz°=0, 
Ox 


aN _ E 3 
a 72XZ 2yz. 


aN aN 
Integrating ôz and ôx with respect to z and x, respectively give 


N(x,y,z)-x^2 z-2x y z^3*P(x,y), 
NGuy,z)-x^2 Z-2x y z^3* Q(y,z), 
where P is any function of x and y; and Q is any function of y and z. 


Comparing these two equations we conclude that P(x,y)=Q(y,z) is a 
constant. We may set P(x,y)=Q(y,z)=0. Therefore, 


N(x,y,z)-x^2 z-2x y 243. 


Thus, 
F=(2x y z-y^2 243) 1+ (x42 z-2x y z^3)j*(x^2 y-3x y^2 z^2)k 


is conservative. 


Solution (b) 


To find a scalar potential function for F we may use the method 
described in Example 7.15. Alternatively, we use the 
findScalarPotential3D module. It is a very convenient tool. However, the 
reader should master the hand-calculations method given in Example 
7.15. 


The potential function for F=(2x y z-y^2 z^3) i*(x^2 z-2x y z^3)j*(x^2 y-3x 
y^2 z^2)k is 


V(x,y,z)=y z (x^2-x y z^2)*C, 


where C is constant of integration. 


Clear[F] 


F[x_,y_.z_]:={2x y z-y^2 ZS SOD Z-2X y z^3x^2 y-3x y^2 z^2 


VectorPlot3D[F[x,y,z], {x,-3,3}, 1 y,-3,3], 2,-3,3] , VectorPoints- 
75, VectorScale-» (0.2, 0.15, Automatic}, VectorStyle->Gray] 
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Figure 7.14. The conservative vector field F=(2x y z-y^2 243) i*(x^2 z-2x y 
Z3)j+(K42 y-3x y^2 z^2)k. 


findScalarPotential3 D[F] 


(* Verification *) 


Grad[y z (x^2-x y z^2)+C[1], {x,y,z} ] -—F[x,y.z]//Simplify 


Example 7.17. Given a vector field 


F-x/(x^2 + y^2) ity/(x^2 + y^2) j. 


(a) Determine where it is conservative. 
(b) Find a scalar potential function for F. 


(c) Find the work done by F in moving a particle along the curve 
y-x^24x-1 from (0,-1) to (1,1). 


(d) Find the work done by F in part (c) using Theorem 7.7. 


Solution (a) 


It is easy to check that V xF =0 . But F is not necessary conservative. 
The criterion for a vector field to be conservative by Theorem 7.8 is 
V x F =0 at all points of region D. However, F has discontinuity at 
x=y=0. Therefore, we have to exclude the point (0,0) from its domain. 
Thus, the domain D is simply-connected if it is defined by 


D={(x, y) eR? | (x, y) * (0, 0)) 


Then F is conservative on domain D. 


Clear[F] 


F[x y. ]-- ix/(x^2*y^2),y/(x^2-ry^2)j 


Curl[Join[F[x,y], {0} ], (x, y,z] ," Cartesian"]//Simplify 


VectorPlot[F[ x,y], {x,-1,1}, {y,-1,1}, VectorPoints->10, VectorScale-— 
{0.15,0.25,Automatic} ] 
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Figure 7.15. The radial vector field F=x/(x%2 + y^2) i*y/(x^2 + y^2) j. 


Solution (b) 
The scalar potential function for F=x/(x*2 + y^2) ity/(x*2 + y^2) j is 
V(x,y)-1/2 In (x^2*Ty^2)4C, 


where C is constant of integration. 


findScalarPotential2D[F] 


Solution (c) 


The work done in moving a particle along the curve y=x*2+x-1 from (0,-1) 
to (1,1) is 


[.F-ds=[", = E 
1 x — +X-1 
= la (x? +x- p^ xu x? + (xP px Ui dy| 


Since Ay =(2X+1)dx , we have 


= j) (dxi+dyj) 


x4 2x(x7 +X- 1) +x? +X-1 
2x [den 1) aT X 


F-d 
Je er [i-o — +(x24x- UR 
-[t mes š 
=0 (x? +X 1) 
Integrate[(2x*3+3x‘%2-1)/(x*2+(x%2+x-1)2), {x,0,1}] 


Clear[c] 


c[t_]:={t,t^2+t-1} 
Using the vectorLineInt2D module we obtain the same result. 
vectorLineInt2D[c,F, {0,1} ] 


plot[1]-ParametricPlot[c[t]//Evaluate, {t,-2,2},AxesLabel-> 
{"x","y"} PlotRange-> 1 {-2,2}, {-2,2}} Epilog-> 
{Red,PointSize[0.03],Point[ { {0,-1},{1,1}}]}]; 


plot[2]=VectorPlot[F[x,y]/Evaluate, {x,-2,2}, {y,-2,2}, VectorPoints- 
>10,VectorScale->{0.2, 0.25, Automatic}, VectorStyle->Gray]; 


plot[3]-Show [Array [plot,2 ]]; 


Show[GraphicsGrid[ { {plot[1],plot[3]} } ],ImageSize->500] 
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Figure 7.16. The work done by the vector field F-x/(x^2 + y^2) i+y/(x^2 


t y^2) j in moving a particle along the curve y=x*2+x-1 from (0,-1) to 
(1,1). 


Solution (d) 
Since the scalar potential function is 


V(x, y)=1/2 In (x42+y*%2)+C 


By equation (7.6) of Theorem 7.7: 


Work done = [ F -ds = V(1, 1) - V(0, -1) 
=!1n2+C-(2in1+C) 
2 2 


-1in2 
2 


Note that the constant of integration C cancels out in the process. This gives 
us freedom to choose the reference point of the potential function or 
potential energy. In physics, potential energy has no absolute meaning, only 
differences of potential energy are physically meaningful. In the following 
example we show that the total energy of a particle moving under the 
influence of a conservative force field is constant in time. 


Example 7.18. (a) Suppose that a particle obeys Newton's Second Law of 
Motion. Show that the work done by a force field F in moving the 
particle of mass m along a path c(t) from c(a) to c(b) is equal to the 
change in kinetic energy of the particle. 


(b) If F is a conservative vector field in R? with F=-VV , where V is the 
potential energy of a particle moving under the influence of F. Show that 
the total energy of the particle is constant in time. 


Solution (a) 


Let a=(dc'(t))/dt be the particle's acceleration. According to Newton's Second 
Law of Motion: 


F=m a=m (dc'(t))/dt. 


The work done by a force field F in moving a particle of mass m along a 
path c(t) from c(a) to c(b) is 


[e de- [mEt eatz mede 


Suppose m is constant, so 


[,F'ds-m wae ()-de'(t)- im na d (cse) 


5m 2d (IIc'IP) 
1 


c(a) 


2 
= m(Ic'(b)If - Ile" (a) IP) 


Write the speed v(t)=||v(t)||=||c'(t)||, thus 


fa F- ds = £ m(v(b))? - 5 m(v(a))? 


1 
- — > m (wt) 
The kinetic energy of the particle is given by 2 . Hence, the 


work done by a force field F in moving a particle of mass m along a path 
c(t) from c(a) to c(b) is equal to the change in kinetic energy of the 
particle. Note that in this case, F is not necessarily conservative. In part 
(b) we shall consider the case when F is conservative. 


Solution (b) 

Let F be a conservative vector field with F =-V V . If a particle travels 
along a path c, its potential energy at time t is defined to be V(c(t)). Note 
that the negative sign in F follows the convention used in physics. 


By equation (7.6) of Theorem 7.7 we have 


[.F ds=-V(B) -(-V(A)) 


’ 


where the particle of mass m moves from point A to point B. 


However, the work done by F is also equal to the change in kinetic 
energy of the particle. Using the result from part (a): 


J. F-ds= : m(v(B))* - : m(v(A))? 


Therefore, 


JeF: ds =-V(B) + V(A) = £ m(v(B))? - £ m(v(A)? 


? 


V(A) + > m(v(A))? = V(B) + 5 m(v(B))? 


The last equation implies that the sum of the potential and kinetic energies of 
the particle remains constant from A to B. Hence, the total energy of the 
particle is constant in time. This is known as the law of conservation of 
energy. 


Example 7.19. Suppose an object of mass M is located at the origin. Let 
another object of mass m be located at (x,y,z). According to Newton's 
law of universal gravitation, the gravitational force field F of M on m is 
given by 


F=-((G M m)/(x^2 + y^2 + z^2) (3/2) (x ity j+z K), 


where G is the gravitational constant. The negative sign implies that the 
force is directed toward M. 


(a) Show that F is conservative. 


(b) Show that the work done by F as the mass m moves from 
Xo = (Xo, Yo, Zo) to X1 = (X1, Y1, Z1) depends only on |! Xo || ana ll X: I. 


Solution (a) 


Note that Xo = (Xo. Yo, Zo) to X1 = (X1, Y1, Z1) are the position vectors of m 
with respect to the origin. Since M is located at the origin, thus Il Xo ll and 
Il X1 || are the distances of m from M. 


The domain of F is simply-connected except at the origin. So, we exclude 
the origin from the domain of F and use Theorem 7.8 to test if VxF=0: 


i j k 
9. 9. ck 
VxF- ôx Oy az 
GMmx ___6Mm ___GMmz 
(x? +y? + P" (x? +y2 4 ET" (x? +y2 + 2 
-0 
Clear[F] 


F[x_,y_,z_]:=((G M m)/(x^2*y^2*z^2)^ (3/2) {x,y,z} 


Curl[F[x,y;z], {x,y,z},"Cartesian"] 


Since F is conservative, by Theorem 7.8 there is a scalar-valued function 
V such that F- VV, 


Using findScalarPotential3D we obtain 


V(x,y,2)=(G M mySqrt[x^2 + y^2 + z^2H-C, 


where C is constant of integration. 
findScalarPotential3 D[F] 


Since F is conservative, by Theorem 7.7 the work done from 
Xo = (Xo; Yo, Zo) to X1 = (X1, Y1, Z1) is path-independent. Using equation 
(7.6) the work done is 


041:21)p. - u 
(X9.Y0.Zo) F ds — V(X4, yt Z1) V(xo, yo; Zo) 


GmM GmM 


4x? +47 4247 V Xo? + yo? * zo? 
2 2 2 = 2 2 2 
Since ll Xo Il = V Xo" + Yo° * Zo^ and llX11l 2 N Xi^ * 4^ +21" | we may 


write 


(04.4.21) .ds= GmM _GmM 
(Xo,Yo,20) Ixıll  Ixoll 


The last equation implies that the work done by F as the object of mass 
m moves from Xo = (Xo; Yo, Zo) to X1 = (X1, Y1, Z1) depends only on ll Xo || 
and ll X: ||. 


In equation (7.5) we have shown that if F is conservative, the circulation 
of F around every closed path is zero. Now, we might ask what happens 
when F is not conservative? For the case when the vector field is in the 
plane the answer is in a theorem known as Green's Theorem. In 


Chapter 8 we shall study the case when the vector field is in space. The 
corresponding theorem is known as Stokes's Theorem. 


7.2 Green's Theorem 


Before presenting Green's Theorem we need some notation. Let C be a 


simple closed curve in R? and let D be the plane region bounded by C. We 
say that C 1s a simple closed curve if it does not intersect itself. We denote 
the boundary curve C of the region D by OD , that is C= OD. We shall 
orient C so that D is on the left as one traverses C. 


Let F(x,y)=M(x,y)i+N(x,y)j has continuous partial derivatives throughout D. 
If C is parametrized by c(t)=(x(t),y(t)) for a<=t<=b, then 


JF ds=[Mdx+Ndy 
= (^(M(x(t), yO) i+ N(x(t), YD) j) c' (t) dt 
Or 


(7.12) 


fcMdx«Ndy = IM), y(t)) x' (t + N(x(t), yi) y' (t) dt 


Theorem 7.9. Green's Theorem 


Let D be a region in R? whose boundary C= OD consists of finitely many 
simple, closed curves which have continuous derivatives. Orient the curves 
of C so that D is on the left as one traverses C. Then 


(7.13) 


f$ Mdx«Ndy- [f,(2* - 94)axay 


When C consists of many closed curves, the symbol fc indicates that the line 
integral is taken over all these curves. 


Green's Theorem tells us how to compute the double integral (a two- 
dimensional notion) over the plane region D by an appropriate vector line 
integral (a one-dimensional construction) around a closed curve C, the 
boundary of D. 


Suppose that F is a conservative vector field. Then by Theorem 7.7, 
there is a potential function V such that F = VV . By Theorem 7.8, 


i j k 
-0- 2 2 20 | [8N 8M 
VxF=0=] x dy az -(2 IL 


M(x, y) N(x, y) 0 
Equation (7.13) reduces to 


d.F-ds=4.Mdx+Ndy=0 


Hence, Green's Theorem implies that if F(x,y)=M(x,y)i+N(x,y)j is 
conservative, then the closed path integral vanishes. Otherwise, the closed 
path integral around C is related to a double integral over the plane region D 
bounded by C. 


Example 7.20 (a) Calculate the line integral directly 


d.ydx+x’ydy 
where C is the unit circle centered at (0,0). 


(b) Verify the answer in part (a) by using Green's Theorem. 


Solution (a) 

The standard parametrization of the unit circle is 
x-cost, yssint. 

dx--sintdt, dy=costdt. 

So, 


f.ydx+x*ydy=¢-sint (-sint dt) +cos* t sin t (cost dt) 
= 4.(-sin? t+cos* t sin t) dt 


=-JT 


Integrate[-Sin[t]^2--Cos[t]^3 Sinft], {t,0,27} ] 
We may verify the result using vectorLineInt2D module: 
Clear[c,F] 


c[t ]:- (Cos[t],Sin[t]) 


F[x_.y_]:={y.x^2 y} 


vectorLineInt2D[c,F, {0,27} ] 


plot[1]-ParametricPlot[c[t]//Evaluate, {t,0,27},AxesLabel-> 
{"x","y"} PlotRange-> 1 {-2,2}, {-2,2}}]; 


plot[2]=VectorPlot[F[x,y]/Evaluate, {x,-2,2}, {y,-2,2}, VectorPoints- 
>10,VectorScale->{0.2, 0.25, Automatic}, VectorStyle->Gray]; 


plot[3]-Show [Array [plot,2 ]]; 
Show [GraphicsGrid| { {plot[1],plot[3]} } ],ImageSize->500] 
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Figure 7.17. The line integral fey OX yay along the unit circle C. 


Solution (b) 
In this example, M(x,y)-y and N(x,y)=x%2 y. So, 


ON 2 OM _ 
— = AX — — 
ox y , €y 


Using Green's Theorem (Theorem 7.9) we get 


dydx+x’ydy=[[,„(2xy-1)dxdy 
where D is the disk x^2+y^2<=1 enclosed by C. 


So, 
foy dx «x ydy- [f,2xy- 0dxdy 
1-x 
28 E PS (2xy-1)dydx 
SH 


Thus, the line integral and the double integral agree according to Green's 
Theorem. 


Integrate[2x y-1,{x,-1,1}, {y,-Sqrt[1-x%2],Sqrt[1-x%2]}] 


Consider a special line integral: $e-ydx+xdy 


Using Green's Theorem we get 


f-ydxexdy- [f| 0-7 cy dxdy 


= [[„2dxdy 
-2-(area of D) 


Therefore, 


(7.14) 


Area enclosed by C = : ($.- ydx+xdy) 


Thus, we can compute an enclosed area by using the line integral along the 
boundary. Usually the line integral is easier to consider than the double 
integral. It is the mathematical basis of the planimeter, a device that 
computes the area of an irregular shape when you trace the boundary with a 
pointer at the end of a movable arm. For more information about Green's 
Theorem and planimeters, see the article "As the Planimeter's Wheel Turns: 
Planimeter Proofs for Calculus Class" by Tanya Leise in The College 
Mathematics Journal, Vol. 38, No. 1 (Jan. 2007), pp. 24-31. 


Example 7.21. The area of a cardioid 


Let a be a positive constant. Use Green's Theorem to calculate the area 
enclosed by the cardioid: 


cardioid[a](t)=(2a (1+cos t)cos t,2a (1+cos t)sin t), 0<=t<=2n. 


(see [Tan], Section 2.3 Cardioid) 


Solution: 
According to Green's Theorem the area enclosed by the cardioid is 


Area = : (f. -y dx * xdy) 


x=2a (l+cos t)cos t, y=2a (1+cos t)sin t, 
dx ={-2asintcost-2a(1+cosf)sinf}dt, 
dy ={-2 asin? t+2a(1+cost)costhdt. 
So, 
1 

Area = > (f.-y dx +x dy) 

— a Le “-(2a(1 +cos t) sin f) [C2asintcost-2a(1--cost)sin f) dt 

* (2a(1-cost)cos t) [-2asin^ t - 2a(1 cos t) cos t] d t] 
- > Lf "4a" sin? tcost(1 «cos t) - 4a? sin? t(1+cos t)? 


-4a? sin? tcos t (1 «cos f) 4a? cos? t (1 * cos t)? ]dt 
- = 2748 (1+cost)dt 


=67ta* 
Clear[a] 


2* ntegrate[a^2 (1--Cos[t])^2, {t,0,27} ] 
cardioid[a ][t_]:={2a(1+Cos[t])Cos[t],2a(1+Cos[t])Sin[t]} 


ParametricPlot[cardioid[a][t], {t,0,27}, {a,0,1},Frame->None,ImageSize- 
7200] 


Figure 7.18. The area enclosed by the cardioid[1]. 


Example 7.22. Verify Green's Theorem for the following vector field: 
F-E^(2x*y) itE”-y j, 


where D is the square with vertices (1,1), (-1,1), (-1,-1), and (1,-1) (see 
Figure 7.19). 


Solution: 


According to Green's Theorem (equation (7.13)): 


f-Mdx+Ndy= [f (Z - 94)axay 


First we compute the left-hand side by orienting the path C counterclockwise 
as stipulated by the statement of Green's Theorem. 


The path C= OD consists of 4 line segments. So, 


fp Mdx+Ndy= |, Mdx+Ndy+ |, Mdx«Ndy 
+f Mdx+Ndy+ f, Mdx«Ndy 


In this example: 


M(x, y)=e°**" N(x, y)=e” 


First path C1: the line segment from vertices (1,1) to (-1,1) where y=1 is 
constant. 


EJ E 
[,aMdx*Ndyz f e^" dx 


4 


_i-e 


2e 


Integrate[E*(2x+1), {x,1,-1}] 


Second path C2: the line segment from (-1,1) to (-1,-1) where x=-1 is 
constant. 


-1 -1 _- 
Jj :Mdx«Ndyz fe” dy 
- -2sinh 1 


Integrate[E^-y, {y,1,-1}] 


Third path C3: the line segment from (-1,-1) to (1,-1) where y=-1 is constant. 


1 afl — 
[,,4Mdx«Ndyz[.. ,e^*' dx 


_ -1re? 
2e? 


Integrate[E^(2x-1), {x,-1,1}] 


Fourth path C4: the line segment from (1,-1) to (1,1) where x=1 is constant. 


1 1 m 
Jj .Mdx«Ndyz f je’ dy 
=2sinh 1 


Integrate[E^-y, {y,-1,1}] 


So, 


fp Mdx+Ndy= |, Mdx+Ndy+ |, Mdx+Ndy 
+f Mdx+Ndy+ f, Mdx+Ndy 


_.e* : ETT . 
= 1-9. -2sinh 1+ E «2sinh 1 
26 2e 
4 4 
ERL. +e 
2e 2e 


_ 1 TET MET 


2e? 
Clear[F] 


F[x_y_]:-={E*(2x+y),E”-y} 


p[1]5{1,1}; 


p[2]={-1,1}; 

pelle 

pl4]={1,-13; 

plot[ 1]=VectorPlot[F[x,y],{x,-2,2},{y,-2,2},VectorPoints->20,VectorScale-> 
{0.5, 0.1, Automatic}, VectorStyle->Gray,Frame->False, Axes- 

>True, AxesLabel->{"x"","y"} ,PlotRange-> { {-2,2}, {-2,2!}]; 
plot[2]-Graphics| {PointSize[0.02],Red,Point[ Array[p,4]]}]; 
plot[3]-Graphics| {Blue,Arrow[{ {p[1],p[2]},{p[2],p[3]}.tpl3 ].pl4]}. 
{p[4],p[1]} Text[" C1", {0.2,0.8} ],Text["C2", {-0.8,0.2} ], Text[ " C3", 
{-0.2,-0.8!], Text["C4",10.8,-0.21 ] 


plot[4]-Show [Array [plot,3 ]] 
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Figure 7.19. The path C around the square D in the vector field F-E^(2x*y) 
i-E^-y j. 


Next, we compute the right-hand side of equation (7.13): 


ff, (2s i M dxdy = io ace ")dxdy 


EET 


2e? 


_ -1 1 6? « e^ — 6 


i 2e? 
which checks with the line integral: 


$.Mdx+Nay= [f,(2* - 94)axay 


B -1+& 4 6^ — o9 


2e? 


Integrate[-E^(2x-*y), {x,-1,1}, fy,-1,1}] 


Example 7.23. Let D be the first quadrant region bounded by the line y=x 
and the parabola y-x^2. Verify Green's Theorem for the vector field F-x^3 
i+x^2j. 


Solution: 


Clear[F] 


F[x_,y_]:={x%3,x%2} 


plot[1]-Plot[ {x%2,x}, {x,0,1},AspectRatio->1]; 


plot[2]- VectorPlot[F[x,y ], {x,-2,2}, {y,-2,2}, VectorPoints->40, VectorScale-> 
10.2, 0.2, Automatic] ]; 


plot[3]-Show [Array [plot,2 ]]; 


Show[GraphicsGrid[ { {plot[1],plot[3]} } ],ImageSize->500] 
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Figure 7.20. The region D, bounded by the line y=x and the parabola y-x^2 
in the vector field F=x^3 i+x^2 jJ. 


According to Green's Theorem (Theorem 7.9): 


f&F-ds- f, Max«Ndy- ff, (Y - 94)axdy 


where in this example: M(x,y)-x^3 and N(x,y)-x^2. 


The boundary C consists of two curves C1 and C2, parametrized 
(respectively) by 


Cl: cl(t)=(t,t2), for 0<=t<=1. 


C2: c2(t)=(t,t), for 0<=t<=1. 


The region D and its boundary OD is oriented according to Green's 
Theorem, so the integrals become 


fp Mdx*«Ndy z &F-ds- |. F:ds+ f, F:ds 
= (Bis j)ccdt« (Pis? j) ez at 
= (Pis) i«2tpdt» (Cis) (i« pat 


= (3 dt« P(E « ?)dt 
spe TA, ia 3-1 1 
=A] + [5 +30] =) 4 3 
-1 

6 


We might want to use the vectorLineInt2D module to check our result: 


Clear[c1,c2] 
cl[t ]:-(tt^2) 


c2[t ]:-ft.t) 
vectorLineInt2D[c1,F, {0,1} ]+vectorLineInt2D[c2,F, (1,01 ] 


Whereas, the right-hand side of equation (7.13): 
ôN 8M _rfi m 
Ih\&-)axay= fl of a2xdydx 
-2 [)x(x-x?)dx 


1 
-2|1-1x| -1 
3 4 0 6 


The two integrals agree: 


fp Mdx«Ndy- ff, (9 - 9 )axay- i 


In this example, the double integral is easier to evaluate than the line 
integral. 


Example 7.24. Find the area inside the quadrilateral using Green's Theorem 
whose vertices taken counterclockwise are (2,0), (4,1), (1,2) and (-1,1). 


Solution: 


point[1]={2,0}; 

point[2]={4,1}; 

point[3]={1,2}; 

point[4]={-1,1}; 

plot[ 1]=Graphics[ {Red,PointSize[0.02],Point[ Array[point,4]]}]; 


plot[2]-Graphics| {Arrow[ {point[ 1],point[2]}],Arrow] {point[2],point[3]}],A 
rrow| (point[3],point[4]) ], Arrow] {point[4],point[1]}]}]; 


Show[Array[plot,2],Axes->True,AxesOrigin-> {0,0} ] 


Mo 1 2 3. 4 


Figure 7.21. The quadrilateral whose vertices: (2,0), (4,1), (1,2) and (-1,1) 
are oriented counterclockwise. 


The path C consists of four line segments parametrized by 
C1: cl (t)=(2t+2,t), for 0<=t<=1. 
C2: c2(t)=(-3t+4,t+1), for 0<=t<=1. 
C3: c3(t)=(-2t+1,-t+2), for 0<=t<=1. 


CA: c4(t)=(3t-1,-t+1), for 0<=t<=1. 


According to Green's Theorem for area, equation (7.14): 


Area enclosed by C = : (f.-Y dx+xdy) 


Clear[c1,c2,c3,c4,F] 
cl[t_]:={2t+2,t} 


c2[t_]:={-3t+4,t+1} 


c3[t_]:={-2t+1,-t+2} 
cA[t ]:={3t-1,-t+1} 


F[x_,y_]:=1/2 {-y,x} 


plot[1]=ParametricPlot[ {1 [t],c2[t],c3[t],c4[t]}, {t,0, 1} PlotStyle- 
>Blue,Epilog->{Red,Text["C1", {3.2,0.3}], Text["C2", (2.3, 1.83], Text["C3", 
£0.3,1.9}], Text["C4", {0.4,0.3}]}]; 


plot[2]=VectorPlot[F[x,y], {x,-1,4}, (y,0,2] , VectorPoints->8, VectorScale-> 
{0.3, 0.2, Automatic}, VectorStyle->Gray]; 


plot[3]-Show [Array [plot,2 ]]; 
Show [GraphicsGrid[| { {plot[1],plot[3]}}],lmageSize->650] 


20F 


ho 
G L 
A 


-1 1 


Figure 7.22. The closed path C forms a quadrilateral in the vector field 
F=1/2 (-y i*x J). 


The area of the quadrilateral consists of four line integrals: 
Area 2 f -ydx «xdy 
= o LE a 
=> Je. ydx+xdy+> fe, ydx+xdy 
1 1 
+, Jo" Ydx*xdy»; Jc, -ydx«xdy 


Along the path C1: 
1 dp. 1 
> fazy dx+xdy= [faot dt+ f (2t+2)dt] 


peppe- 
=1 


(* Compute the line integral along C1 *) 


vectorLineInt2D[c1,F, (0,13 ] 


Along the path C2: 


t f, -ydx+xdy=1[['-(t+1)(-3)dt+ ['(-3t+4) at] 
peg epresa] 


HH 


vn 


(* Compute the line integral along C2 *) 


vectorLineInt2D[c2,F, (0,1) ] 


Along the path C3: 
1 irr! 1 
t fe -ydxexdyz i[f5-Ct«2)(-2dt* [,-2t 1) 70d1] 


-[-i&. 2t] - -[-? +1] = |-1«2]- E 


II 
N I% 


(* Compute the line integral along C3 *) 


vectorLineInt2D[c3,F, {0,1} ] 


Along the path C4: 
1 1 1 1 
> Sc, ydx+xdy= x [fino (-t + 1) (3) dt + | (31-1) (-1)at] 


Reel 


=-1 
(* Compute the line integral along C4 *) 


vectorLineInt2D[c4,F, {0,1} ] 


So, 
A-i$.-ydx«xdy 
- ife y dx«xdys? fe, -ydx«xdy 
+t fe -ydx«xdysi f. -ydx«xdy 
7 


=1+-+=- 
2 


=5 


N J% 


Example 7.25. (a) Evaluate the line integral $5 ydx-3xdy directly, 
where C is the cardioid with polar coordinate equation r=1+cos 0, oriented 
counterclockwise. 


(b) Redo part (a) using Green's Theorem. 


Solution (a) 


As can be seen from Figure 7.23, the cardioid starts from 0—0 at (2,0) and 
along the path counterclockwise to 0=2z. 


The parametric equation of the cardioid is 
C: c(8)=((1+cos 8)cos 0,(1+cos 0)sin 0), 0<=9<=2n. 


Note that this is the cardioid given in Example 7.21 with a=1/2. Therefore, 
the area is 37/2. 


Clear[c,F] 
c[0 ]:-1(1-Cos[0 ) Cos[0].(1-Cos[0  Sin[0]] 


F[x_,y_]:={5y,-3x} 


ParametricPlot[c[t], {t,0,27} ‚ImageSize->Small] 


0.5 1.0 1.5 2/0 


Figure 7.23. The cardioid r=1+cos 0. 


Evaluate the line integral directly: 


f 5ydx-3xdy- [^75 [(1 + cos 8) sin 8] (-sin 0 - 2 cos @sin 09)d 8 


- le [(1 cos 8) cos 6] (cos 8 - sin? 8 + cos? 6) d 6 


=-127T 


Integrate[5((1-Cos[0])Sin[0])(-Sin[0]-2Cos[0]Sin[0]), (0,0,2z] ]- 
Integrate[3((1--Cos[0 ]) Cos[0])(Cos[0]-Sin[0]^2--Cos[0]^2), 10,0,27] ] 


We may employ the vectorLineInt2D module to compute the line 
integral: 


vectorLineInt2D[c,F, {0,27} ] 


plot[1]-PolarPlot[1--Cos[0], {0,0,27} |; 


plot[2]- VectorPlot[F[x,y ], {x,-2,2}, ( y.-2,2], VectorPoints->10, VectorScale-> 
10.2, 0.2, Automatic}, VectorStyle->Green]; 


plot[3]-Show [Array [plot,2 ]]; 


Show [GraphicsGrid| { {plot[1],plot[3]} } |. ImageSize-^500] 


Figure 7.24. The cardioid r=1+cos 0 in the vector field F=5y 1-3x j. 


Solution (b) 


Using Green's Theorem, equation (7.13): 


f£ Mdx«Ndy- Jf ($ - 24)axdy 


In this example M(x,y)=5y and N(x,y)=-3x. So, 


f.5ydx-3xdy= [[j(-3-5)dxdy - -8 | [,dxdy 
=-8xarea=-8x = 


=-127 


Alternatively, we may evaluate this integral using polar coordinates: 


$.5ydx-3xdy--8 EST 1s rdrdg 
2-127 


-8*Integrate[r, {0,0,27}, {r,0,1+Cos[0]}] 


Green's Theorem has other form that uses the curl of F. This form resembles 
Stokes's Theorem in R? which we shall study in the next chapter. 


Consider the vector field F=M(x,y)itN(x,y)j. Let D be a region in R° to 
which Green's Theorem applies and F has continuous partial 


derivatives. We can define F in R? by setting its k-component to be zero. 
So that we may compute the curl of F: 


i j k 
- 2 3 0 | [8N 8M 
as ax öy | 8z -(2 24) k 


M(x, y) N(x, y) O 


Since k-k=1, we get 


er 


Therefore, Green's theorem may be written as 
(7.15) 


f.F-ds=$Mdx+Ndy= ff (VxF)-kdA 


Note that k is a unit normal to the region D. The direction of k is 
determined by the right-hand rule so that D is on the left as one 
traverses C. Equation (7.15) tells us that we can compute the line 
integral of F over a simple closed curve C by integrating over region D 
the component of V xF in the direction of the unit normal k to the 
enclosed region D. 


Green's Theorem has another form that uses the divergence of F. This form 
resembles Gauss's Theorem in R? which we shall study in the next chapter. 


Let F-M(x,y)i N(x,y)j. Assume once again that D be a region in R° to 
which Green's Theorem applies and F has continuous partial 
derivatives. Let n denote the unit vector that is perpendicular to C and 
points away from D. 


If C is parametrized by c(t)-(x(t),y(t)) for a<=t<=b, then n is always 
perpendicular to the unit tangent vector c'(t)/||c'(t)||. So, we obtain 


(7.16) 
-y(i-x(j | y (i-x(0j 
lic (£) Na (2 +y (ty? 
Notice that 


co. 
Ile’ (£)]I 


Write F =-N(x, y)i* M(x, y)j 


Applying Green's Theorem to F we get 


fof ds = f.-Ndx+Mdy= ff, (24 - €?axay 


dy 
= ffo (34 + 9) axay 


-f[;V-.FdA 


Now consider the line integral on the left side Bor = 


pF -ds = f?-N(«(0, yO) i+ Ml, yO) f] c (D dt 
= [P-N(x(t), y() i+ MX), y() HI (x (Di y (0 ) dt 
= f?t-N(x(t, y() x" (t) + Mot, y(t) y' (x) dt 


= f[M, yt) ZE + No, ye) =O] Le" (01 at 


- Y (Di-x (0j 
Since F=M(x,y)itN(x,y)j, lel and S= IC (Ð dt we obtain 


fF ds=$,F- nds 


Thus, we have 
(7.17) 


fF: nds-[[,V:.FdA 


This form of Green's Theorem (equation 7.17) is sometimes called the 
"Divergence Theorem in the Plane". The line integral on the left side of 
equation (7.17) is called the flux of vector field F across C. If F 
represents the velocity of the flow of a fluid in D, the flux is the sum total 
of the scalar component of the fluid's velocity in the direction of the 
outward normal along the boundary curve C= 0D , 


Example 7.26. Let F=(2x+y ^3) i*(3y-x^4) j represents the velocity of the 
flow of fluid in the disk D={(x,y)|x*2+y*2<1}. Use the divergence 
theorem (equation 7.17) to find the flux across the boundary C= OD. 


Solution: 
The divergence of F=M(x,y)i+N(x,y)j=(2xt+y‘%3) i (3y-x^4) j gives 


V.p-2M,2N -5,3-5 
Ox oy 


In this example, the boundary is the unit circle, x*2+y”2=1. 


So, the flux across this circle 1s 


$F: nds-[f,V-.FdA-5[[ydA 
= 5- (area of the unit circle) = 5 7t 


The flux is positive, therefore more fluid is flowing out of the region 
than into it (this means that there is a source in the region). This is 
illustrated in Figure 7.25. If the flux is negative, then there is more fluid 
flowing into the region than out of it (indicating that there is a sink in 
the region). 


Clear[F] 


F[x ,y. :- (2x*y^3,3y-x^4] 


plot[1]-Show[Graphics[ {EdgeForm[Blue], Yellow,Disk[ {0,0},1]}],Axes- 
>True,PlotRange->{ {-2,2}, {-2,2}}]; 


plot[2]- VectorPlot[F[x,y ], {x,-2,2}, {y,-2,2}, VectorPoints->10, VectorScale-> 
{0.3, 0.2, Automatic}, VectorStyle->Gray]; 


plot[3]-Show [Array [plot,2 ]]; 
Show [GraphicsGrid| { {plot[1],plot[3]} } ],ImageSize->500] 


2 — 


Figure 7.25. Total (net) flux flow is out of the disk x^2*y^2« 1. 


Example 7.27. Compute the flux of F=cos y itsin y j across the region D 
that is shown in Figure 7.26. 


Solution: 


Clear[F] 


F[x_,y_]:={Cos[y],Sin[y]} 


plot[1]-Plot[1-x, {x,0,1},PlotRange->{ {0,1.2}, {0,1.2}}, Epilog->Text["y=1- 
x", {0.35,0.5! ],AspectRatio->1]; 


plot[2]=Graphics[ ( Text["x^2y^2-1", 
{0.8,0.82}], Blue, Thickness[0.005],Circle[{0,0},1, {0,2/2} ]} ]; 


plot[3]- VectorPlot[F[x,y ], {x,0,1.2}, {y,0,1.2}, VectorPoints->8, VectorScale-> 
{0.3, 0.2, Automatic}, VectorStyle->Gray]; 


plot[4]-Show [Array [plot,2 ]]; 
plot[5]-Show [Array [plot,3 ]]; 


Show [GraphicsGrid| { {plot[4],plot[5]} } ],‚ImageSize->500] 


Figure 7.26. D is the region in the first quadrant bounded by the line y=1-x 
and the circular arc of unit radius, in the vector field F=cos y i+sin y j. 


The flux of F across region D is defined by Bor "HS à 


The boundary curve C consists of two paths: 
1. the circular arc Cl: cl(t)=cos titsintj, 0<=t<=n/2; and 


2. the line segment C2: c2(t)=ti+(1-t), 0<=t<=1. 


Orienting the curve counterclockwise, we have 


flux = $ F:nds= fe, F:n ds+ f. F:nds 


Consider the first line integral along the path C1: 


[2 ne ea eee 
Jc F: mdsz fy (cos y i « sin y j) Elle: ( || dt 


hF nids- >"? (cos (sin t) i + sin (sin f) j): (costi - sint j) dt 
= LE 2f (cos (sin t)) cos f + (sin (sin t)) sin t] dt 


= 1.5327 


The analytical solution involves the Bessel function of the first kind. 
However, for this example we are more interested in the numerical solution. 


Integrate[Cos[Sin[t]]Cos[t]+Sin[Sin[t]]Sin[t], {t,0,2/2}] 


NiIntegrate[Cos[Sin[t]]Cos[t]+Sin[Sin[t]]Sin[t], {t,0,2/2 } ] 


Next, we evaluate the second line integral along the path C2: 


: =f! i sinv n. O Oi ' 
J&F n2ds= [,(cosyi+sinyj) b l| c2' (t) || dt 


SF nads- fo(cos (1 - ti«sin(1-1)j)- (-i-j)dt 
= J [-cos (1 - £) - sin (1 - t] dt 
~ -1.30117 

Integrate[-Cos[1 -t]-Sin[1-t], {t,0,1}] 


NIntegrate[-Cos[1 -t]-Sin[1-t], {t,0,1}] 


Thus, 


flux= $ F:nds= fe, F:n ds+ f. F-n;ds 


= 1.5327 - 1.30117 
= 0.23153 


Since the flux is positive, there is more fluid flowing out of the region than 
into it. 


Alternatively we may evaluate the flux by using equation (7.17): 


$F nds=[[,V-FdA 


Let us evaluate the right-hand side of equation (7.17) and at the same time to 
verify our result obtained above. 


The divergence of F is 


ie O(cos y) " O(sin y) 


= COS 
ôx oy y 


Div[F[x, y], {x,y},"Cartesian" | 


V-FdAc- [! [vt dyd 
So ~ Jx=0Jy=1-x und d dor 


- [^ [sin PES dx 
- klein (v i= | -sin (1 -x) dx 
50231532 


NIntegrate[Sin[Sqrt[1-x^2]]-Sin[1-x], {x,0,1}] 


Example 7.28. Verify Green's Theorem for F=(1+x*2+y%2)4(-1/2) i+ 
(1+x%2+y%2)*(1/2) j and the region D={ (x,y)|(x-1)^2 


Solution: 


Clear[F] 


F[x_,y_]:={(1+x42+y%2)*(-1/2),(1+x42+y%*2)*(1/2)} 


plot[1]=ContourPlot|{y==(x-1)*2,y==1-x+x%2-x“5}, {x,0,1}, 
{y,0,1} Epilog->{Text[" y=(x-1)*2",{0.2,0.4}], Text[" y21-x*x^2-x^5", 
{0.8,0.73 131; 


plot[2]=VectorPlot[F[x,y],{x,0,1},{y,0,1}, Vector Points->8, VectorScale-> 
{0.3, 0.2, Automatic}, VectorStyle->Gray]; 


plot[3]-Show [Array [plot,2]] ; 


Show[GraphicsGrid[{{plot[1],plot[3]}}],ImageSize->600] 
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Figure 7.27. The region D={ (x,y)|(x-1)*2 


According to Green's Theorem (Theorem 7.9): 
= - ON _ 0M 
fF ds=$,Mdx+Ndy= ff (% - M) axdy 


In this example: 
M(x,y)=(1+x^2+y^2)^(-1/2), N(x,y)=(14+x42+y%2)*(1/2) 
The boundary curve C= OD consists of two paths: 
C1={ (x,y)|y=1-x+x%2-x*5,0<=x<=1 } 
and 


C2-1 G;y)ly7(-1)^2,0-—x--1 j 


Orienting the curve counterclockwise: 


fp Mdx+Ndy= |, Mdx+Ndy+ {,Mdx+Ndy 


Consider the first line integral on the right: 


Jc, Mdx «Ndy 
= P(1+x?+(1-x+x2-x°)) "^ ax 
* (152 «(1-2 x «x? — x°)?)"? a(4 - x « x? - x5) 
= fia? +(1-x+x? -xyy 
+(-1+2x-5x*)(1+x°+(1-x+x° - x°)?)"") ax 
= 0.630702 


NIntegrate[(1+x*2+(1-x+x%2-x%5)*2)4(-1/2)+(-14+2x-5x44)(14+x24+(1- 
X*x^2-x^5)^2)^ (1/2), {x,1,03] 


Next, the second line integral on the right: 

Jc, Mdx«Ndy 
= IU +x? «(x - 1) dx+(1+x +y?) a((x - 1?) 
= fot 6-0) «26-0 (1 +(x 0*)7]ax 
= -0.408899 


NIntegrate[(1--x^2--(x-1)^4)^(-1/2)2(x-1)(1-x^2-(x-1)^4)^(1/2),íx,0,11] 


Thus, we have 


fp Mdx+Ndy= f, Mdx+Ndy+ J. Mdx«Ndy 


= 0.630702 - 0.408899 
= 0.221803 


Now, we evaluate the double integrals in Green's Theorem: 


ON _ OM ap par y 
AN, M dxdy - fiso y=(x-1)? [= s (14x2+y?)9? dy dx 
= 0.221803 


Thus, we have verified Green's Theorem: 


Mdx+Ndy= — - — Jdxdy =0.221803 
j ae 


NIntegrate[x/(1+x%2-+y%2)4(1/2)+y/(1+x42+y*2)*(3/2),{x,0,1}, fy,(x- 
1)^2,1-x*x^2-x^51] 


Chapter 8. Stokes's and Gauss's Theorems 


It was mentioned in Chapter 7 when we studied Green's Theorem, that 
Stokes's Theorem is a generalization of Green's Theorem in R? to orientable 


surfaces in IR? . In this chapter we shall study Stokes's and Gauss's 
Theorem. Together with Green's Theorem, Stokes's and Gauss's Theorem 
constitute the core of integral vector analysis. 


Initialization 


Clear["Global"] 


(* The standard normal vector to a parametrized surface S *) 
normal[S |[s_,t_|:= 

Module[ {u,v}, 

Cross[D[S[u,v],u],D[S[u,v],v]]/. {u->s,v->t} 


] 


(* Vector line integral as defined in Definition 7.4 *) 
(* for three-dimensional case 

c is given parametrically by (x(t),y(t),z(t)) 

2) 

vectorLineInt3D[c ,F ,{a_,b }]:= 

Module[ {x,y,z,v}, 

x—e|[t][[1]]; 

y=c[t][[2]]; 

z=c[t][[3]]; 


v=c'[t]; 
Integrate[ F[x,y,z].v, {t,a,b} ] 
] 


(* Vector surface integral by equation 4.6 of Section 4.2.3 
sign : the default sign of normal vector is positive 

*) 

vectorSurfIntegral[X_,F_,{s0_,s1_},{t0_,„tl_} sign :1]:= 

Module[ {u,v,F1,F2,F3,normalVector}, 

normalVector-sign*Cross[D[X[u,v],u],D[X[u,v],v]]/. {u->s,v->t}; 

{F1,F2,F3}={F[X[u,v][[1]],X[u,v][[2]],X[u,v][[3 THEE E TIEF EX [u. v] 

[LET] X Tuv ]E[2 ] X Tu. v ]EE3 T]HEEZ TLF EX [us v [EL T] X Tus v ]E[2 ] X Tu. v ]EE3 T] ] 

[[3]]5/. {u->s,v->t}; 

Integrate[Dot[ {F1,F2,F3},normal Vector], {s,s0,s1}, {t,t0,tl }] 


] 


8.1 Stokes's Theorem 


A surface S in R° is orientable if there is a continuous vector field N 
such that N is nonzero and normal to S at each point of S. We say that N 
is a normal vector field to S. Let C be any simple, closed curve that has 
continuous derivative lying in S. We say that C is oriented consistently 
with S if N orients C by a right-hand rule, that is, if the thumb of your 
right hand points along N, then the fingers curl in the direction of the 
orientation of C. 


As an example, let S be the sphere of radius a: x^2+y^2+z^2=a^2. The 
normal vector field to S may be computed using the gradient: 


N(x, y, 2- V(à «y^ +z°)=2xi+2yj+2zk 


The sphere is orientable, since N(x,y,z) is continuous, nonzero and normal to 
the sphere at each point. In this example N(x,y,z) is outward normal and - 
N(x,y,Z) is inward normal vector to S. 


Let OS denote the boundary of S. suppose OS consists of finitely many 
simple, closed curves that have continuous derivatives. We say that OS is 
oriented consistently with S if each of its closed curves is oriented 
consistently with S. 


We now state Stokes's Theorem: 


Theorem 8.1 (Stokes's Theorem) 


Let S be an orientable surface in R? whose boundary OS consists of 
finitely many simple, closed curves that have continuous derivatives, 


each of which is oriented consistently with S. Let F be a vector field that 
has continuous derivatives whose domain includes S. Then 


(8.1) 


JJ,(VxF) dS=$,F-ds 


Here are some important points to note: 


1. Stokes's Theorem equates the surface integral of the "curling of 
vector field F" over an oriented surface S to a line integral of F along 
just the boundary of S. Thus, here lies the power of Stokes's Theorem: if 


S1 is any orientable surface (that satisfies Stokes's Theorem) whose 
boundary S1 is the same as OS then, we have 


(8.2) 


JJs(VxF) dS=$.F ds=$.F- ds= J, (VxF)-ds 


This implies that we may evaluate J IgV xF)-dS 


surface! 


by using a different 


2. Suppose there is a vector field A such that F = V xA , The vector field 
A is called a vector potential for F. According to Stokes's Theorem: 


[Js xA)-dS=$,.A-ds 


? 


J[,F'd$-$.A^ds 


Stokes's Theorem also tells us that for another surface S' with the same 
oriented boundary OS (see point 1 above), we have 


(8.3) 


[[, F-d5- ff F-dS - f. A-de 


This implies that the surface integral of a vector field with vector 
potential A is surface independent, just as a vector field with a potential 
function V is path independent. The surface integral of F on the left- 
hand side of equation (8.3) is called the flux of F through the surface S. 


Since dS - Nd' S , we may write equation (8.3) as 
[[;,F'NdS- [[,.F-NdS'-0. 


[[;F'NdS«[[,.F-(-N)dS'-0. 


The last equation tells us that if the normal vectors of surfaces S' and S 
have opposite signs, then the surface integral vanishes. Since S and S' 
share the same oriented boundary OS , the surface S is closed. 
Conversely, if S is closed, it can be shown by Stokes's Theorem then, the 
flux of F through the surface S vanishes. 


3. Let F be a vector field that is independent of z and that its k- 
component is identically zero. If S is a surface in the xy-plane. Then 


equation (8.1) reduces to equation (7.13) of Green's Theorem. Hence, 
Stokes's Theorem implies Green's Theorem (see Example 8.6). 


Example 8.1. Let the vector field be given by 
F(x,y,z)=(cos y+y cos x)i+(sin x-x sin y)j+x y z k. 


Verify Stokes's Theorem if the surface S is defined by x42+y%2+5z=1, z>=0, 
oriented by upward normal. 


Solution: 
Write x^2+y^2+5z=1 as 
z=1/5 (1-x^2-y^2). 


Since z>=0, the boundary OS resides in the xy-plane at z=0. Thus, OS is the 
unit circle 


C-1 (x,y,z)|x^2+y^2=1,z=0 j; 
parametrized by 
c(t)=(cos t,sin t,0), for 0<=t<=2z, 


which is oriented consistently with S. 


The surface S is the graph of f(x,y)=1/5 (1-x^2-y^2) defined over region D: 


D={ (x,y)|x^2+y^2<=1 }. 


We calculate the curl of F: 


i j k 
VxF- 0/0x olöy 0/0z 
(cosy+ycosx) (sinx-xsiny) xyz 


= (XZ, -yz, 0) 
Clear[c,F] 
c[t ]:- (Cos[t], Sin[t],0) 


F[x_,y_,z_]:={Cos[y]+y Cos[x], Sin[x]-x Sin[y].x y z} 


Curl[F[x,y,z], {x,y,z},"Cartesian"] 


plot[ 1 ]=ContourPlot3 D[x42+y*2+5z==1, {x,-2,2}, {y,-2,2},{z,0,0.2} , Mesh- 
>None,ContourStyle-> {Green,Opacity[0.3]},PlotPoints->40,AxesLabel-> 
{"x","y"","z"} PlotTheme->"Classic"]; 


plot[2]=ParametricPlot3D[c[t], {t,0,27},PlotStyle-> 
{Red,Dashed, Thickness[0.01]} ]; 


plot[3 ]=VectorPlot3 D[F[x,y,z], {x,-2,2}, {y,-2,2},{z,0,0.2}, VectorPoints- 
>7,VectorScale->{0.06, 0.1, Automatic}, VectorStyle->Gray]; 


plot[4]-Show [Array [plot,2 ]]; 
plot[5]-Show [Array [plot,3 ]]; 


Show [GraphicsGrid| { {plot[4],plot[5]} } ],ImageSize->600] 
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Figure 8.1. The surface S defined by x^2*y^2-4-5z-1, z>=0, oriented by 
upward normal; in the vector field F(x,y,z)=(cos y+y cos x)i+(sin x-x sin 
y)j+x yzk. 


Using the level set F(x,y,z)=x*2+y*2+5z, an upward-pointing normal 
vector N is given by 


VF=N=(2x, 2y, 5). 


According to Stokes's Theorem, equation (8.1): 


fh xF): NdS=$.F-ds 


First we evaluate the left-hand side of the Stokes's Theorem: 


[f (v xF): Nas» ff. (xz, -y z, 0): (2x, 2y, 5)dxdy 


1 1-x* 
M [ag 2% 2-2y z)dxdy 


y=- 
ER | 1 1-x? A 2 3 2 2 
~ 5 aj, rar x“ - y?) (2x* - 2y*)dxdy 
=0 


1/5*Integrate[(1-x^2-y^2)(2x^2-2y^2), {x,-1,1}, {y,-Sqrt[1-x^2],Sqrt[1- 
x^2]j ] 


Next we evaluate the right-hand side of the Stokes's Theorem: 


$F ds 
= fA F(c(t):c' (dt 
- [iw (cos (sin f) + sin f cos (cos f), sin (cos t) - cos t sin (sin t), 0)- 
(-sin t, cost, O) dt 
- P [-sin t (cos (sin t) + sin t cos (cos f)) 
* cos f (sin (cos f) - cost sin (sin t))] dt 


= 


which checks. 


Integrate[-Sin[t](Cos[Sin[t] | Sin[t]Cos[Cos[t]])-Cos[t]( Sin[Cos[t]]- 
Cos[t]Sin[Sin[t]]), {t,0,27} ] 


Since the right-hand side of equation (8.1) is a vector line integral, we 
may compute it using vectorLineInt3D module: 


vectorLineInt3D[c,F, {0,27} ] 


Example 8.2. Verify Stokes's Theorem for the vector field F=2x y 1+x j+ 
(y+z)k where the surface S is a helicoid parametrized by X(s,t)=(s cos t,s sin 
t,t), 0<=s<=1, 0<=t<=7/2. 


Solution: 

The boundary OS consists of four curves of each is simple and oriented 
consistently with S according to the right-hand rule. This is illustrated in 
Figure 8.2. The parametrizations are: 

c1(s)=(s,0,0), 0<=s<=1, 

c2(t)=(cos t,sin t,t), 0<=t<=7/2, 

c3(s)2(0,1-5,1/2),  0<=s<=1, 


c4(t)}=(0,0,n/2-t),  O<=t<=n/2. 


Clear[X,c1,c2,c3,c4,F] 
X[s_,t_]:={s Cos[t],s Sin[t],t} 
cl[s_]:={s,0,0} 
c2[t_]:={Coslt],Sinft],t} 
c3[s_]:={0,1-s,n/2} 


cA4[t_]:={0,0,7/2-t} 


F[x_,y_,Z_]:={2x y,x,yt+z} 


plot[1]-ParametricPlot3D[XT[s,t], {s,0,1}, {t,0,2/2} ,PlotStyle- 
>Opacity[0.8],AxesLabel-> {"x","y","z"},PlotRange->{{-1,1},{-1,1}, 
{-0.5,2}},PlotTheme->"Classic"]; 


plot[2]-ParametricPlot3D[c1 [s], {s,0,1},PlotStyle-> 
{Red,Dashed, Thickness[0.01]} ]; 


plot[3 ]=ParametricPlot3D[c2[t], {t,0,2/2},PlotStyle-> 
{Red,Dashed, Thickness[0.01]}]; 


plot[4]=ParametricPlot3D[c3[s], {s,0,1},PlotStyle-> 
{Red,Dashed, Thickness[0.01]} ]; 


plot[5]-ParametricPlot3D[c4[t], {t,0,2/2},PlotStyle-> 
{Red,Dashed, Thickness[0.01]} ]; 


Show[Array[plot,5]] 


T 
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Figure 8.2. The surface S parametrized by X(s,t)=(s cos t,s sin t,t), 0<=s<=1, 
0<=t<=n/2; and its boundary curves. 


The surface S is defined over region D: 
D={ GGy)|x^2*ty^2«-1 j. 
The normal vector N is given by 
i j k 


cost sint 0 
-ssint scost 1 


N=-O-ARG AS EEK > 


= (sin f, -cost, s) 
and 


i j k 
0/0x ðlðy 8löz 
2Xy X y-*Z 


VxF= =(1,0,1-2x) 


(* The normal vector: N *) 


normal[X][s.t]//Simplify 


Curl[F[x,y,z], {x,y,z},"Cartesian"] 


According to Stokes's Theorem, equation (8.1): 


JJ, xF)-dS=4,F-ds 


First we evaluate the left-hand side of the Stokes's Theorem: 


[fV xF)-dS= ff; (VxF).NdS- ff (VxF).Ndsdt 


= f [; (1,0, 1-2x)-(sint, -cost, s)dsdt 


NE d =nı/2 
~ Js-0Jt-0 

es =n/2,_. 
= Jot [sint+s(1-2scost)]dtds 


MES 
3 4 


(1, 0, 1-2scos t) - (sint, -cost, s)dtds 


Integrate[Sin[t]+s(1-2s Cos[t]), {s,0,1}, {t,0,7/2} ] 


Next, we calculate the right-hand side of equation (8.1) which consists of 
four parts: 


c1(s)=(s,0,0), 0<=s<=1, 
c2(t)=(cos t,sin t,t), 0<=t<=7/2, 
c3(s)2(0,1-5,/2),  0<=s<=1, 


c4(t)=(0,0,n/2-t),  0<=t<=n/2. 


(8.4) 
f F-ds= [| F(cs(s))-¢1'(s)ds+ fJ F(eo(0): c2' (dt 
+ [| eF(cs(9)) es (s) dis * "P F(ca(t): ca (t) dt 


Consider the first integral on the right-hand side of equation (8.4): 


[.AF(e«9): €: () ds JL FCs, 0, 0): (1, 0, O) ds 
= iR S, 0)- (1, 0, O)ds 
= Em ds 
=D 


The second integral on the right-hand side of equation (8.4): 


J F(e2(t))- co'()dt- Jes Flees t, sint, t)- (-sinf, cost, 1)dt 
IE p ^(2 cos tsint, cost, sin t+ f) (sint, cost, 1) dt 
ertt -2cos tsin? t« cos? t - sint t) dt 


= >. (8+6 1 +370) 


Integrate[-2Cos[t]|Sin[t]^2-*-Cos[t]^2-7-Sin[t]--t, {t,0,2/2 } ] 


The third integral on the right-hand side of equation (8.4): 


[I .F(es(s))-¢3'(s)ds= [1 F(0, 1 s, 77/2): (0, -1, 0) d's 
= [1,(0, 0, 1-s+70/2)-(0, -1, 0)ds 
1 
E s00 dS 
=0 


The fourth integral on the right-hand side of equation (8.4): 


Jd F(c4(t))-c4' (t) dt = [Z F(0, 0, 1/2 -t)- (0, 0, -1)dt 
= [ZF F(0, 0, n/2-t)-(0, 0, -1)dt 
= [= (0, 0, m/2-t)-(0, 0, -1)dt 
= hia mae nat 


F 


Integrate[-(n/2)+t, {t,0,7/2}] 


So, 


fig F-ds= [| ,Flci(s))-cı (S ds» f)*F(c2(t))-e2' (t) dt 
* Ji,F(cs(s)) :ea'(s)d s^ i F(c4(t)): c4' (t) dt 


=0+ 4 (8467«372)«0- $ 
24 8 


The two integrals agree: 


Jf xF)-ds=$,F-ds=,+7 


Alternatively, we may compute the line integral using vectorLineInt3D 
module: 


vectorLineInt3 D[c1,F, {0,1} ]+vectorLineInt3D[c2,F, 
{0,7/2} ]+vectorLineInt3 D[c3,F, {0,1} ]+vectorLineInt3 D[c4,F, 
10,1721 //Simplify 


plot[1]-ParametricPlot3D[XT[s,t], {s,0,1}, (t,0,1/2) ,PlotStyle- 
7Opacity[0.8], AxesLabel-^ ("x","y","z" PlotRange->All,PlotTheme- 
>"Classic"]; 


plot[2]-ParametricPlot3D[c1 [s], {s,0,1},PlotStyle-> 
{Red,Dashed, Thickness[0.01]} ]; 


plot[3 ]=ParametricPlot3D[c2[t], {t,0,2/2},PlotStyle-> 
(Red,Dashed,Thickness[0.01 ]) ]; 


plot[4]-ParametricPlot3D[c3[s], {s,0,1},PlotStyle-> 
{Red,Dashed, Thickness[0.01]} ]; 


plot[5]-ParametricPlot3D[c4[t], {t,0,2/2} ,PlotStyle-> 
(Red,Dashed,Thickness[0.01 ]) ]; 


plot[6]=VectorPlot3 D[F[x,y,z], {x,-1,1}, (y,- 1,1], (z,-0.5,1.5] , VectorPoints- 
76, VectorScale-» (0.2, 0.2, Automatic}, VectorStyle->Gray]; 


Show [Array [plot,6]] 
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Figure 8.3. The surface S parametrized by X(s,t)=(s cos t,s sin t,t), 0<=s<=1, 
0<=t<=7/2, in the vector field F=2x y i*x j+(y+z)k. 


Example 8.3. Verify Stokes's Theorem for the given surface and vector field: 


S is defined by y-Sqrt[16-x^2-z^2] and F=z itx jty k. 


Solution: 


In this example, since y>=0, the boundary OS resides in the xz-plane at y=0. 
Thus, OS consists of the circle 


C={ (x, y,z)|k*2+z’2=16,y=0 }. 
The parametrization of C is 


c(t)=(4 cos t,0,4 sint), 0<=t<=2n. 


The surface S is the graph of y-f(x,z)-Sqrt[16-x^2-z^2] defined over region 
D: 


D={ (x,Z)x^2*z^2«-16 |. 
S may be parametrized by 
X(s,t)=(s cos t,Sqrt[16-s^2],s sint), for 0<=s<=4, 0<=t<=2r. 


The normal vector N to S: 


N -0,Xxà X - (cos t, - —, sin t] (-ssin t, 0, scos f) 
-|- s? cos t -s — s? sint | 


=-| s? cost s? sint | 


—À S, ————— 
V 16-s? V 16 - s? 


Notice that the normal vector is pointing inwardly into the surface (Figure 
8.4). However, we choose an opposite normal vector such that it always 
point away from the surface. Then, as stipulated by Stokes's Theorem the 
boundary curve C= OS has to be oriented consistently using the right-hand 
rule. As a result, the direction is clockwise in the xz-plane. 


Evaluate the curl of F: 


i j k 

VxF=|0/0x 0/dy 8l8z | =(1, 1, 1) 
Z X y 

Clear[c,X,F] 


(* The boundary of the surface *) 
c[t_]:={4Cos|[t],0,4Sin[t] } 

(* The parametrized surface S *) 
X[s_,t_]:={s Cos[t],Sqrt[16-s^2],s Sin[t]} 


F[x y ,z ]-izXyj 


Curl[F[x,y,z], {x,y,z},"Cartesian"] 


normal[X][s.t]//Simplify 


180,601 — (2,3172) ; 


plot[1]-ParametricPlot3D[XT[s,t], {s,0,4}, {t,0,27}, Mesh->None,PlotStyle- 
>Opacity[0.6],BoxRatios->{1, 1, 1},PlotTheme->"Classic",AxesLabel-> 
{ Ds "y" "z" } ] : 


plot[2]-Graphics3D[ {PointSize[0.02],Point[X[s0,t0]],Blue,Arrow[ ( X[s0,t0], 
X[s0,t0 | -normal[X][s0,t0] ]) |; 


plot[3]-ParametricPlot3D[c[t], {t,0,27},PlotStyle-> 
(Red,Dashed,Thickness[0.01 ]) ]; 


plot[4 ]|- VectorPlot3D[F [x,y,z], 1x,-4,4 1, {y,0,4}, (z,-4,4 ] , VectorPoints- 
75, VectorScale-» (0.2, 0.2, Automatic}, VectorStyle->Gray]; 


plot[5]-Show [Array [plot,3 ]]; 


plot[6]-Show [Array [plot,4 ]]; 


Show [GraphicsGrid| { {plot[5],plot[6]} } ],‚ImageSize->600] 


Figure 8.4. The surface S defined by y-Sqrt[16-x^2-z^2] in the vector field 
F=z 1+x jty k. The original normal vector points inwardly (blue arrow). 


According to Stokes's Theorem, equation (8.1): 


[f (VxF) dS - 4, F.ds 


Evaluate the left-hand side integral using an outward-pointing normal 
vector: 


[SW xF)-dS = [[,(V xF): (-N)dsdt 


=, s? sin f 
= [* 1.4.4 imn st atas 
EI r P ” Jie- E 


er | est +S+ s? sint Lo 


EY M Pru 416-2 


=167T 


Integrate[(s^2 Cos[t])/Sqrt[16-s^2 |--s--(s^2 Sin[t])/Sqrt[16-s*2], {s,0,4}, 
150,223] 


To calculate the right-hand side of equation (8.1), we orient the closed curve 
consistently with S, so the direction is clockwise: 


fF ds = f£, .F(c() c' (dt 
= Joo nF cos f, 0, 4sint)-(-4sint, 0, 4cost)dt 
= f£, „(4sint, 4cost, 0)-(-4sint, 0, 4cost)dt 
= f, (-16 sin? t) dt 
= 2 


which checks with the previous result: 


[Js xF) dS=$.F ds=167 


Integrate[-16 Sin[t]^2, {t,27,0} | 
We may also use vectorLineInt3D module to calculate the line integral: 
vectorLineInt3D[c,F, {27,0} ] 


Example 8.4. Let S be the surface defined by z-4-Ax^2-y^2 with z>=0. Use 
Stokes's Theorem to compute the flux of V x F , where F-(E^z^2-y)i* 
(E^z^3+x)j+cos (x Z)k. 


Solution: 


VxF=(-3e? 2)i+(2e” z+zsin(x2))j+2k 


ContourPlot3D[z—-4-Ax^2-y^2, {x,-2,2}, {y,-2,2}, {z,0,4} ,PlotPoints- 
>40,AxesLabel->{"x","y","z"},PlotTheme->"Classic"] 


Figure 8.5. The surface S is defined by z-4-4x^2-y^2 with z>=0, 


Write 

Z—4-4Ax^2-y^2-4-(Ax^2ty^2) 

The bottom of the surface S is at z=0. So, the boundary C= OS is an ellipse: 
Ax2+y2=4, 

x^24(y/2)^271. 

OS ={ (x,y,z)|K*2+(y/2)2=1,z=0 }. 


The semi-minor and semi-major of the ellipse is 1 and 2, respectively. 


We may parametrize the surface S by X(s,t): 
X(s,t)=(s/2 cos t,s sin t,4-s*2), 0«-s«—2, 0<=t<=21; 
and the boundary OS at z=0 by c(t): 


c(t)=(cos t,2 sin t,0), O<=t<=2z. 


The normal vector to S: 


N=(2 s^2 cos t,s^2 sin t,1/2 s). 


The flux of V xF is just the double integral on the left-hand side of equation 
(8.1): 


ff xF) dS &. F.ds 


Let us first evaluate it directly: 


[Js xF)-dS = ff[,(VxF):NdS 

= fiolo 3% 2%, 26% z+zsIn (x2), 2) 
(25^ cost, s sint, + s)dtds 

= ws E d^ (4-s?)?, 2a) (4- s?) « (4 - s?)sin (È cost (4 - &?)), 2): 
(25? cost, s sint, + s)dtds 


c 


It is not easy to compute this double integral by hand, however Mathematica 
is able to get the result analytically. 


Integrate[ {-3 E^(4-s^2)^3 (4-s^2)^2,2 E^(4-s^2)^2 (4-s^2)--(4-s^2) Sin[s/2 
Cos[t](4-s*2)],2}. {2 s^2 Cos[t],s^2 Sin[t],1/2 s}, s,0,21, {t,0,27}] 


Clear[X,c,F] 
X[s_,t_]:={s/2 Cos[t],s Sin[t],4-s”2} 
c[t_]:={Cos|t],2Sin[t],0} 


F[x_,y_,z_]:={Exp[z’2]-y,Exp[z%3 | *x, Cos[x z]} 


Curl[F[x,y,z], {x,y,z},"Cartesian"] 


normal[X][s.t]//Simplify 


{s0,t0}={1,7/4}; 


plot[1]-ParametricPlot3D[XT[s,t], {s,0,2}, {t,0,27}, Mesh->None,PlotStyle- 
>ỌOpacity[0.7],AxesLabel->{"x","y","z"},PlotTheme->"Classic",PlotRange- 
> {-3,3}, {-3,3}, {0,4} 3]; 


plot[2]-Graphics3D[ {PointSize[0.02],Point[X[s0,t0]],Blue,Arrow[ {X[s0,t0], 
X[s0,t0]+normal[X][s0,t0]}]}]; 


plot[3 ]=ParametricPlot3D[c[t], {t,0,27},PlotStyle-> 
{Red,Dashed, Thickness[0.01]} ]; 


plot[4]=VectorPlot3 D[F[x,y,z], {x,-3,3}, {y,-3,3},{z,0,4!, VectorPoints- 
>10,VectorScale->{0.2, 0.2, Automatic}, VectorStyle->Gray]; 


plot[5]=Show[Array[plot,3 ]]; 
plot[6]=Show[Array[plot,4]]; 


Show [GraphicsGrid| { {plot[5],plot[6]}}],lmageSize->600] 
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Figure 8.6. The surface S defined by z-4-Ax^2-y^2 with z>=0, in the vector 
field F=(E%z’2-y)i+(E%z*3+x)j+cos (x z)k. The blue arrow is the outward- 
pointing normal. 


Now, we evaluate the flux of V x F using the line integral, namely the right- 
hand side of equation (8.1): 


2 ' 
fF ds = [e F(c(t):c' (tdt 
= fé F(cos t, 2sint, O)- (-sinf, 2cost, O) dt 
= [A7 (1-2sint, 1+cost, 1)-(-sint, 2cost, 0) dt 
= f? [-(1 -2sint)sin t 2 (1 * cos t) cos t)] dt 


-47t 


The line integral is much easier to compute by hand. 
Integrate[-(1-2 Sin[t])Sin[t]+2(1+Cos[t])Cos|t], {t,0,27} ] 
Using vectorLineInt3D module we verify our result: 
vectorLineInt3D[c,F, {0,27} ] 


Example 8.5. Let S be the surface defined by x-10-y^2-z^2 with x>=1, 
oriented with outward-pointing normal. Let F=(2x y z+5z)i+E“y cos (x z) 
jtx y^2 k. 

Find the flux of V xF : 


JALLES 


Solution: 


Evaluate the curl of F: 


VxF - (2xy «e xsin(xz), 5«2xy - y^, -2xz - e' zsin(xz)) 


ContourPlot3D[x—-10-y^2-z^2, (x, 1,10}, {y,-Sqrt[10],Sqrt[10]}, (z,- 
Sqrt[10],Sqrt[10]},PlotRange->{ {0,10}, {-Sqrt[10],Sqrt[10]}, (- 
Sqrt[10],Sqrt[10]}},AxesLabel->{"x","y","z"},PlotTheme- 
>"Classic", ViewPoint-> {-1,-2,1}] 
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Figure 8.7. The surface S is defined by x=10-y^2-z^2 with x>=1. 


The surface S is defined by 
S={ (x,y,z) x=10-y^2-z^2,x>=1 }. 


Since x>=1, the parametrization of S is given by 


X(s,t)-(10-s^2,s cos s sint), 0<=s<=3, 0<=t<=21. 
The normal vector to S: 


N=0;Xxd;X - (s, 2 s^ cost, 2 s sin t) 


? 


is outward-pointing (Figure 8.8). 


The boundary C= OS is the circle of radius 3 in the yz-plane at x=1 given by 
C={ (x,y,zZ)y^2*z^2-9,x-1 } 


To be consistent with the outward-pointing normal vector of S, the 
parametrization of C is 


c(t)=(1,3 cos t,3 sint), 0<=t<=2n. 
Clear[X,c,F] 

X[s_,t_]:={10-s%2,s Cos[t],s Sin[t]} 
c[t_]:={1,3Cos[t],3Sin[t]} 

F[x_,y_,z_]:={2x y z+5z,E^y Cos[x z],x y^2] 


normal[X][s.t]//Simplify 


Curl[F[x,y,z], {x,y,z},"Cartesian"] 


{s0,t0}={1,5n/6}; 


plot[1]-ParametricPlot3D[XT[s,t], {s,0,3}, {t,0,27},Mesh->None,PlotStyle- 


>Opacity[0.6],PlotTheme->"Classic",AxesLabel-> ("x","y","z" 1, ViewPoint- 
>{-1,-2,1}]; 


plot[2]-Graphics3D[ {PointSize[0.02],Point[X[s0,t0]],Blue,Arrow[ {X[s0,t0], 
X[s0,t0]+normal[X][s0,t0]}]}]; 


plot[3]-ParametricPlot3D[c[t], {t,0,27},PlotStyle-> 
(Dashed,Red,Thickness[0.01 ]) ]; 


plot[4]- VectorPlot3D[F[x,y,z], {x,0,10}, {y,-Sqrt[10],Sqrt[10]}, (z,- 
Sqrt[10], Sqrt[10] 3, VectorPoints->8, VectorScale- (0.2, 0.2, 
Automatic}, VectorStyle->Gray]; 

plot[5]=Show[Array[plot,3 ]]; 


plot[6]=Show[Array[plot,4]]; 


Show [GraphicsGrid| { {plot[5],plot[6]} } ],ImageSize->600] 
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Figure 8.8. The surface S defined by x-10-y^2-z^2 with x>=1 with its 
outward-pointing normal vector (blue arrow); in the vector field F=(2x y 


z+5z)i+E”y cos (x z) j*x y^2 k. 


Now, we compute the flux of V xF directly: 


JJ,VxF-dS= f[,(VxF):.NdS 
- © ola [2s(10- s?) cos t e**9*' (10- s?) sin (s(10- s?) sin t), 
5+2s(10-s°)cost-s? cos? t, 
-2s(10-s*)sint-e°°°*' s sin tsin (s(10-s°)sin t) 


(s, 2 s? cos t, 2 s? sin t)dtds 


We employed Mathematica to do the integration using Integrate 
command. However, it did not respond for long time, so we aborted the 
evaluation. The flux of V x F looks impossible to evaluate analytically. 
We may try to evaluate this integral numerically using NIntegrate 
command. However, we will not attempt to proceed any further with 
this calculation. 


Recall from our notes above, the power of Stokes's Theorem is that if S1 is 


any orientable surface (that satisfies Stokes's Theorem) whose boundary OS; 
is the same as OS then, by equation (8.2): 


JJg(VxF) dS=$.F ds=$. F-ds= JJ, (V xF) dS 


Our alternative surface that satisfies Stokes's Theorem and share the same 
boundary OS is 91 , namely the disk y^2+z^2<=9 at x=1, 


S1 ={ Qo z)ly^29z^2«-9,x-1 }. 
Since x>=1, the parametrization of S1 is 
Xı(s, t)=(1, scost, ssin f) 


, 0<=s<=3, 0«-t«-2n. 


It is so parametrized such that its normal vector N1 - (S, 0, 9) is oriented 
consistently with the direction of OS as stipulated by Stokes's Theorem. 
Note that this is also consistent with the right-hand rule. 


(* Alternative surface S1: a disk surface x^24z^2-9 *) 
Clear[X1] 


XI[s ,t_]:>{1,s Cos[t],s Sin[t]) 


normal[X1 ][s,t]//Simplify 


plot[1]-ParametricPlot3D[XT[s,t], {s,0,3}, {t,0,27}, Mesh->None,PlotStyle- 
7Opacity[0.5],PlotTheme-- "Classic", AxesLabel-» ("x","y","z"1]; 


plot[2]-ParametricPlot3D[X!1 [s,t], (s,0,3], {t,0,27},PlotStyle->Opacity[0.2]]; 


plot[3]-ParametricPlot3D[c[t], {t,0,27},PlotStyle-> 
{Dashed,Red, Thickness[0.01]}]; 


Show [Array [plot,3], ViewPoint-> {-1,-2,1}] 
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Figure 8.9. The surface S (x-10-y^2-z^2 with x>=1) and S1 (the disk 
y^2+z^2<=9 at x-1) share the same boundary OS that satisfy Stokes's 


Theorem. 


Thus, the flux of V x F over S may now be computed using different, yet 
simple surface 91: 
[Js V xF-dS- ff (V xF): N; dS 


= f: for [2 scost + e°°°*! sin (ssin f), 


542scost- s? cos? f, 
-2 ssin t- e°°°' s sin t sin (s sin t)]- 


(s,0,0)dtds 
=) 


Integrate[ {2 s Cos[t]+E”(s Cos[t]) Sin[s Sin[t]],5+2 s Cos[t]-s^2 Cos[t]^2,-2 
s Sin[t]-E^(s Cos[t]) s Sin[t] Sin[s Sin[t]]}.{s,0,0}, {s,0,3}, {t,0,27} ] 


To verify our result, we evaluate the flux of V x F indirectly using the line 
integral in Stokes's Theorem (equation 8.1): 


ffA xF): dS 2 $, F-ds 
flux of V xF = &.F-ds 
= [ZI F(c(t):c' (dt 
ML 3cos f, 3sint)- (0, -3sint, 3cos f) dt 
E [418 cost sin t 15sin t, e**9*! cos (3 sin (t)), 9 cos? t)- 


(0, -3sin t, 3cost) dt 
=D 


Integrate[ (18 Cos[t] Sin[t]+15 Sin[t,;E^(3 Cos[t]) Cos[3 Sin[t]],9 Cosft]"2}. 
10,-3 Sin[t],3Cos[t] ^, ft,0,2x}] 


Using vectorLineInt3D module we verify the line integral: 
vectorLineInt3D[c,F, {0,27} ] 


Example 8.6. Let F(x,y)2M(x,y)r* N(x,y)j. Verify that Stokes's Theorem 
implies Green's Theorem. 


Solution: 
Let F(x,y)=M(x,y) i* N(x,y) j. Write 
F(x,y)=M(x,y) i*N(x,y) j*0 k. 


So, 


i k 
0/0x dldy 0/0z 
M N 0 


VxF= =(2- 2) 


ôx oy 


Let S be a surface in the xy-plane, then the unit normal vector to S is k. 
According to Stokes's Theorem, equation (8.1): 


ff xF): dS &. F.ds 


the left-hand side gives 


ffe vxP):as- f (3 - 24) .-as 


Since K dS Z dXdy | therefore 


ff (v XP) ds = f .(9N - M dxdy 


Whereas the right-hand side gives 


fF -ds=f,,(Mi+Nj)-(dxi+dyj+dzk) 
=f. (Mdx+Ndy) 


Hence, for F(x,y)=M(x,y)i+N(x,y)j, where S is a surface in the xy-plane, 
Stokes's Theorem (Theorem 8.1) implies Green's Theorem (Theorem 7.9): 


ff xF) dS=$.F-ds 
> TE - M)axdy=$, (Mdx+Ndy) 


Example 8.7. An oriented surface is given by S={ 
(x, y, Z)|z-E^(x^2*y^2),x^2*y^2«1 }. Let F=x E^-y j. Verify Stokes's 
Theorem. 


Solution: 
Evaluate the curl of F: 


V xF =(0, 0, e”). 


ContourPlot3D[z==Exp[x^2+y^2],{x,-1.5,1.5},{y,-1.5,1.5}, 
{z,0,E+1},AxesLabel->{"x","y","z"},PlotTheme->"Classic"] 


Figure 8.10. The surface S={ (x,y,z)|Z=E*(x2+y%2),x*2+y*%2<] }. 


The surface S is given by 

S={ Guy, z)lz-E^(x^2*y^2),x^2ty^2«1 }. 

We may parametrize of S by 

X(s,t)=(s cos t,s sin t,E^s^2), 0«-s«-1, 0<=t<=2r. 


The normal vector to S: 


N=0,Xx0;X = (-2&* s? cos t, -2 e? s? sint, s) 


In this example N is an inward-pointing normal vector (see Figure 8.11). 


The boundary C= OS is the unit circle in the xy-plane at z=E given by 
C={ (x, y,z)|x*2+y*2=1,z=E } 


To be consistent with the inward-pointing normal vector of S, the 
parametrization of C is 


c(t)=(cos t,sin t,E), 0<=t<=2n. 


Clear[X,X1,c,F] 
X[s_,t_]:={s Cos[t],s Sin[t],Exp[s”2]} 
c[t ]:- (Cos[t], Sin[t], E) 


F [X y 4] = {0,x E^-y,0j 


normal[X][s.t] // Simplify 


Curl[F[x,y,z], {x,y,z},"Cartesian"] 


{s0,t0}={0.5,7/3}; 


plot[ 1]=ParametricPlot3D[ {X[s,t]}, {s,0,1}, {t,0,27} ,Mesh->None,PlotStyle- 
>Opacity[0.3],AxesLabel-> {"x","y","z"},PlotRange->{{-1.5,1.5},{-1.5,1.5}, 
{0,E+1}}]; 


plot[2]=Graphics3D[ ( PointSize[0.02], Point[ X[s0,t0]],Blue, Arrow] {X[s0,t0], 
X[s0,t0]+normal[X][s0,t0]}]}]; 


plot[3]-ParametricPlot3D[c[t], {t,0,27},PlotStyle-> 
{Dashed,Red, Thickness[0.01]} ]; 


plot[4]=VectorPlot3 D[F[x,y,z], {x,-1.5,1.5}, {y,-1.5,1.5}, 

{z,0,E+1}, VectorPoints->6, VectorScale-> (0.2, 0.2, Automatic}, VectorStyle- 
>Gray]; 

plot[5]=Show[Array[plot,3 ]]; 

plot[6]-Show [Array [plot,4 ]]; 


Show [GraphicsGrid| { {plot[5],plot[6]} } ],ImageSize->600] 


ox 
Q x 
X m 
— 
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Figure 8.11. The surface S- (6G; y,z)|z-E^(x^2*y^2),x^2*y^2«1] with its 
inward-pointing normal vector (blue arrow); in the vector field F=x E^-y j. 


According to Stokes's Theorem, equation (8.1): 


ff xF): dS= &. F.ds 


Evaluate the left-hand side integral: 


Je xP) a8 = J[ exe Nasa 


= EE Bog". (t -2e% s?cost, -26° s? sint, s)dtds 


| UN ue (se?*")atds 
= 2 7t Bessell[1, 1] 


Note that the solution is a Bessel function of the first kind. 
Integrate[s Exp[-s Sin[t]], {s,0,1}, {t,0,27} ] 


Next, we calculate the right-hand side of equation (8.1): 
gf ds = [ZI Fet) c (tdt 
= fé F(cos t, sint, e)-(-sint, cost, 0) dt 
= fZ (0, costet, 0)- (-sint, cost, 0) dt 
x ges te" at 


= 2 7t Bessell[1, 1] 


The two answers agree: 


[Js xF): dS -=g F ds =2 7 Bessell[1, 1] 


Integrate[Cos[t]^2 Exp[-Sin[t]], {t,0,27} ] 


Let us verify our result using the vectorLineInt3D module: 


vectorLineInt3D[c,F, {0,27} ] 


Example 8.8. (a) Evaluate 


f (y? +cos x) dx + (siny +z°)dy+xdz 


? 


where C is the closed curve parametrized and oriented by the path c(t)=(cos 
t,sin t,sin 2t). 


(b) Use Stokes's Theorem to evaluate the line integral. 


Solution (a): 
Since sin 2t=2 cos t sin t, the curve c(t)=(cos t,sin t,sin 2t) satisfies the 


equation z=2x y. This means that c(t) lies on the surface z=2x y. This is 
shown in Figure 8.12. 


Clear[c,F] 


c[t_]:={Cos|[t],Sin[t],Sin[2t]} 


F[x_,y_,Z_]:={y*3+Cos[x],Sin[y]+z%2,x} 


plot[ 1 ]=ContourPlot3 D[z==2x y, {x,-2,2}, {y,-2,2}, {z,-2,2},Mesh- 
>None,ContourStyle->Opacity[0.3],AxesLabel->{"x","y","z"},PlotTheme- 
>"Detailed"]; 


plot[2]=ParametricPlot3D[c[t], {t,0,27},PlotStyle-> 
(Dashed,Red,Thickness[0.007]] ]; 


Show [Array [plot,2 ]] 


mz=2xy 


mo 


Figure 8.12. The curve c(t)=(cos t,sin t,sin 2t) lies on the surface z=2x y. 


Let F=(y*3+cos x)r*(sin y+z^2)j+x k, then the closed integral: 


f- (y? +cos x) dx + (sin y «z^)dy +x dz 


’ 


may be written as the vector line integral: 


d.F-ds=d.(y’+cosx)dx+(siny+z’)dy+xdz 


’ 


where ds=dxi+dyj+dzk. 


So, 


f.F-ds=¢ (y? * cos x)dx+(siny+z*)dy+xdz 
- Ds " (sin? t + cos (cos £)) (-sin t) dt 
+ f?" (sin (sin f) + sin*(2 t)) (cos t) dt 
+ [? "cost (2 cos (2 t)dt 


-3n 
4 


Integrate[(Sin[t]^3--Cos[Cos[t] (-Sin[t]), 
{t,0,27} ] -Integrate[(Sin[Sin[t] | gSin[2t]|^2)Cos]|t], 
{t,0,27} ]|-HIntegrate[2Cos[t]Cos[2t], {t,0,27} ] 


We may also use vectorLineInt3D module to compute this line integral: 


vectorLineInt3D[c,F, {0,27} ] 


Solution (b): 


According to Stokes's Theorem: 


J[,VxF)-dS=4,F-ds 


Evaluate the curl of F: 


VxF-(-2z,-1,-3y^) 


Curl[F[x,y,z], {x,y,z},"Cartesian"] 


The surface z-2 x y may be parametrized by 
X(s,t)=(s cos t,s sin t,s^2 sin 2 t). 


Now, the patch of S corresponding to the boundary C= OS is bounded by 
0<=s<=] and 0<=t<=2r. 


The normal vector is: 
N=(-2 s^2 sin t,-2 s^2 cos t,s). 


Note that the normal vector always point upward in z-direction which is 
consistent with the orientation of the curve c(t). 


Clear[X] 


X[s_,t_]:={s Cos[t],s Sin[t],s^2 Sin[2t]} 


normal[X][s,t]/Simplify 


plot[ 1 ]=ParametricPlot3D[X[s,t], {s,0,1}, {t,0,27},PlotStyle- 
>Yellow,AxesLabel->{"x","y","z"}, BoxRatios->{1, 1, 1}]; 


plot[2]-ParametricPlot3D[c[t], {t,0,27},PlotStyle-> 
(Dashed,Red,Thickness[0.007]] ]; 


Show[Array[plot,2],PlotRange->All] 


1.0 


Figure 8.13. A patch of the surface z=2x y whose boundary curve is c(t)= 
(cos t,sin t,sin 2t). 


So, 


ff xF)-dS= f[,(VxF).Nds 
= [fee 72 s? sin 2t, -1, -3s? sin? t)- 
(-2 s? sin t, -2s? cost, s)dtds 
= f [et (4 s* sint sin2t+2s? cost-3s* sin? t)dtds 


_3n 
4 


The two integrals agree: 


Jf (v xF)dS=$,Fds=-7 


Integrate[4s^4 Sin[t]Sin[2t]+2s*2 Cos[t]-3s^3 Sin[t]^2, {s,0,1}, {t,0,27} ] 


Example 8.9. The surface S consists of four sides and a bottom face of a 
cube with vertices (+a,+a,+a). Orient S with outward-pointing normals. Let 
the vector field be F=x^2 y z^2 ity z^2 j+z E^z sin (x y) k. Evaluate 

J Í sV xF- dS 


Solution: 


Note that the top face is open. Thus, we may use Stokes's Theorem. 


a=1; 


Show[Graphics3D[ (Opacity[0.3], Cuboid[ {-a,-a,-a}, {a,a,a} ]) ],; Axes- 
7 True, AxesLabel-» ("x","y","z"!,PlotRange-» ( {-2,2}, {-2,2}, {-2,2}}] 


Clear[a] 


^ 
a 


Figure 8.14. The cube with vertices (+1,+1,+1). 
The surface S consists of five faces (parametrized respectively by): 
1. SI in the xz-plane, front X1(s,t)=(s,-a,t), -a<=s<=a, -a<=t<=a, 


Normal vector: N1=(0,-1,0). 


2. S2 in the yz-plane, back: X2(s,t)=(-a,s,t), -a<=s<=a, -a<=t<=a, 


Normal vector: N2=(1,0,0). 


3. S3 in the xz-plane, back: X3(s,t)=(s,a,t),  -a<=s<=a, -a<=t<=a, 


Normal vector: N3=(0,-1,0). 


4. S4 in the yz-plane, front: X4(s,t)=(a,s,t), -a<=s<=a, -a<=t<=a, 


Normal vector: N4=(1,0,0). 


5. S5 in the xy-plane, bottom: X5(s,t)=(s,t,-a), -a<=s<=a, -a<=t<=a. 


Normal vector: N5=(0,0,1). 


The boundary of S is the square of length 2a. It is illustrated in Figure 8.15 
for a=1. 


Evaluate the curl of F: 


V xF=(-2yz+e7 xzcos (xy), 2x* yz- e* y zcos (x y), -x° z?) 


As required by this example, we orient S such that the normal vectors point 
outwardly. So, we need to multiply N2, N3 and N5 by -1 for this purpose. 


Note that as one traverses the boundary path, the surface is always on the 
left. 


Clear[X1,X2,X3,X4,X5,a] 
X1[s_,t_]:={s,-a,t} 
X2[s_,t_]:={-a,s,t} 
X3[s_,t_]:={s,a,t} 
XA4[s_,t_]:={a,s,t} 
X5[s_,t_]:={s,t,-a} 


F[x ,y ,z ]:={x42 y z^2,y z^2,z E*z Sin[x y]! 


a=1; 


plot[ 1]=ParametricPlot3D[ {X1[s,t],X2[s,t],X3[s,t],X4[s,t],X5[s,t]},{s,-1,1}, 
tt,-1,1},Mesh->False,PlotStyle-> {Opacity[0.2]} ,PlotRange-» | {-2,2}, {-2,2}, 
{-2,2}},AxesLabel->{"x","y","z"}]; 


plot[2]-Graphics3D[ f Red,Dashed,Thickness[0.005 | Arrow] ( {1,-1,1}, 
{-1,-1,1}}],Arrow[ {{1,1,1},{1,-1,1}}],Arrow[ {{-1,1,1}, 

{1,1,1}}],Arrow[ { {-1,-1,1}, {-1,1,1}}],Black,Text["C1", 
{0,-1,1.2}],Text["C2", {-1,0,1.3}],Text["C3", {0,1,1.2}],Text["C4", 
{0.95,-0.2,1.3}],Blue,Text["S1", {0,-1,0.3}],Text["S2", 
{-1,0,-0.1}],Text["S3", {0,1,0$],Text["S4", {0.95,0,0} , Text["S5", {0,0,-1}]}]; 


Show[Array[plot,2]] 


Clear[a] 


^ 
c. 


M. 


Figure 8.15. The surface S consists of four sides and a bottom face of a cube 
with vertices (£1,+1,+1); with the boundary OS as a square oriented in 
clockwise direction. 


curlF[x ,y ,z ]-Curl[F[x,y,z], {x,y,z},"Cartesian"] 


normal[X1 ][s,t] 
normal[X2][s,t] 
normal[X3 ][s,t] 


normal[X4][s,t] 


normal[X5][s,t] 


It is rather tedious to compute these surface integrals by hand, so we 
employ vectorSurfIntegral module for the tasks (with normal vectors to 
X2, X3 and X5 redirected to point outward as reflected in the "sign" 
argument passing to the module): 


vectorSurfIntegral[X1,curlF, {-a,a}, (-a,a) ]+ vectorSurfIntegral[ X2,curlF, {- 
a,a}, {-a,a},-1]+vectorSurfIntegral[X3,curlF, {-a,a}, {- 
a,at,-1]+vectorSurfIntegral[ X4,curlF, {-a,a}, {- 

a,a} ]+ vectorSurfIntegral[X5,curlF, {-a,a}, {-a,a},-1]//Simplify 


We may recall that the power of Stokes's Theorem lies in the fact that if S' is 
any orientable surface (that satisfies Stokes's Theorem) whose boundary 
OS" is the same as OS , then we have equation (8.2): 


[J(VxF)-dS=6.F-ds=4..F-ds=[{.,(VxF)-dS 


Hence, we may evaluate i JsY man by using a different surface S'. The 


surface that shares the same boundary with S is the top face of the cube, 
thus, 


S'={ (8,y,Z)|-a<=x<=a,-a<=y<=a,z=a j. 


To be consistent with the orientation of the boundary OS (which is a 
square oriented clockwise), the normal vector N to S' has to point 
downward. So, N=(0,0,-1). 


Thus, the surface integral becomes 


[[s(VxF) dS - [J,.(VxF)-ds 
= [[„(VxF)-NdS 
= [o fe. .-2ay +e’axcos(xy), 2ax^ y - e? ay cos (x y), -8° x^): 


(0, 0, -1) d xdy 
ELT a e x*)dxdy 


Integrate[a^2 x”2, {x,-a,a}, {y,-a,a} ] 


There is still another way to verify this result is to use the line integral in 
Stokes's Theorem, equation (8.1): 


ff (V xF) dS - &, F.ds 


The line integral BF Em consists of four paths: 


fF ds- Jc F-ds+ f F-ds+|.F-ds+ |. F.ds 


1. C1: along the x-axis, where y=-a, z=a: 


Je F-ds-[*. (-a?x^, -a°, ae? sin (-a x)): (-1, 0, 0) dx 


2. C2: along the y-axis, where x=-a, z=a: 


SF as = | (a^ y, a* y, ae? sin (-ay))- (0, 1, 0) dy 
- o (a? y) dy 


a [ry -o 


3. C3: along the x-axis, where y-a, z-a: 


SF ds fe. (8X7, a, ae? sin (a x)): (1,0, 0)dx 


x--a 


SP qe rids 


4. C4: along the y-axis, where x=a, z=a: 


Jo,F ds = | a (a^ y, a° y, ae*sin(ay))-(0, -1, 0)dy 
= uM (-a? y) dy 


ep 
=0 


So, 


fsF'ds- |. F-ds+ f F-ds«[. F-ds« f F.ds 


=2a°+0+2a°+0 


8.2 Gauss's Theorems 


Gauss's Theorem is also known as the divergence theorem. It is so called 


because the integrand is a divergence of a vector field F=Fyi+Fyj+Fzk 


The divergence is a scalar function: 
E-1i +i 2h 2 eG i 
V F=(i AU +k 2) (Fy, i+ Fy j * Fz k) 


OF, , Fy | oF 


Theorem 8.2 (Gauss's Theorem) 


Let S be a closed surface that encloses a solid region D in R? . Assume 
that S consists of finitely many piecewise smooth, closed orientable 
surface, each of which is oriented by unit normals that point away from 
D. Let F be a vector field that has continuous partial derivatives whose 
domain includes D. We call S the boundary of D and denote S= 0D . 
Then 


(8.5) 


db F-dS- fff, vV- Fav 


The symbol fp denotes a surface integral taken over a closed surface or 
finitely many piecewise smooth, closed orientable surface. 


There are several important points to note: 


1. Gauss's Theorem says that the flux of the vector field F across the 
boundary surface S is equal to the total divergence of F in a bounded, 
solid region D in space. 


2. Let D be a region to which Gauss's Theorem applies. If F=x i+y j+ z k, 
then V -F = 3 , Equation (8.5) reduces to 


jppFds-3][ffpjdV. 


(8.6) 


-— | . 
volume of D = - dh F dS 


Hence, Gauss's Theorem may be used to calculate the volume of region 
D using closed surface integral. This is analogous to the way we used 
Green's Theorem to calculate areas of plane regions by means of 
suitable line integrals (Chapter 7). Geometrically, the volume of D is 
one-third of the flux of the vector field F across the boundary surface. 


3. Let D be a region to which Gauss's Theorem applies. Suppose that the 
boundary of D consists of two surfaces S and S'. If V -F =0 , we say that 
F is divergenceless. In such case equation (8.5) reduces to 


(8.7) nF ds=0 


So, 


fb F-dS= ff F-dS+ ff F-dS=0 


or 


(8.8) JJsF dS=-JJyF ds 


Equation (8.8) implies that we may evaluate the surface integral of either S 
or S' indirectly using the other one subject to an opposite sign. This allows 
us to choose from the two integrals one that is considerably easier to 
evaluate. 


Example 8.10. Verify Gauss's Theorem (Theorem 8.2) for F=x i-y^2 j+z 
k for the solid region D={ (x,y,z)|x*2+y*2+1<=z<=$ }. 


Solution: 

The solid region D is defined by 

D={ (x,y,z)|x42+y*2+1<=z<=5 | 

Since x^2 and y^2 are nonnegative, the minimum of z is 1. 


As shown in Figure 8.16 below the boundary S= OD consists of two 
piecewise smooth, closed orientable surfaces: 


1. a paraboloid surface: oD, ={ (x, y,z)|x*2+y*2+1=z }, 


OD: is the graph of the function z=f(x,y)=x*2+y*2+1. 


2. a disk with radius 2: 9D ={ (x, y,z)|x*2+y*2+1=5,z=5 } 


OD; and OD2 may be parametrized (respectively) by 
X1(s,t)=(s cos s sin t,s42+1), 0<=s<=2, 0<=t<=2n 
with normal vector (pointing into D): 

N1(s,t)=(-2 s^2 cos t,-2 s^2 sin t,s); 

and 

X2(s,t)=(s cos t,s sint,5), 0<=s<=2, 0«-t«-2m, 
with normal vector (pointing away from D): 


N2(s,t)=(0,0,s). 


Clear[X1,X2,F] 
XI[s_,t_]:={s Cos[t],s Sin[t],s42+1} 
X2[s_,t_]:={s Cos[t],s Sin[t],5} 


F ba ae a = {x,-y*2,z} 


normal[X1 ][s,t]//Simplify 


normal[X2][s,t]//Simplify 


plot[ 1]=ParametricPlot3D[X1[s,t],{s,0,2}, {t,0,27},Mesh->None,PlotStyle- 
>Opacity[0.8],PlotRange->{{-3,3},{-3,3},{0,6}},AxesLabel-> 
{"x","y","z"} PlotTheme->"Classic"]; 


plot[2]=ParametricPlot3D[X2[s,t], {s,0,2}, {t,0,27},PlotStyle- 
>Opacity[0.3],PlotTheme->"Classic"]; 


Show[Array[plot,2]] 


IX 
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Figure 8.16. The solid region D={ (x;y,Z)|x^2*y^241«-z«-5 }. 


According to Gauss's Theorem, equation (8.5): 


db F-dS- ff jy Fav 


Evaluate the left-hand side of equation (8.5): 


fPpF AS = J fio F dS + J foio, F 9S 


= [2 JESF Xs, 0) (-N)dtds+ [2,[?2"F(X(s, f))-Nodtds 
qe PER 
~ Js=0Jt=0 

2 [2m 


+ J5-oJi-o F(scost, ssint, 5): (0, 0, s)dtds 


= ES ia (scost, -s* sin? t, s? +1): (2s? cost, 2s^ sint, -s)dtds 


+ (2. fT (scost, -s sin? t, 5). (0, 0, s)dtds 
z16ut 


F(scos t, ssin t, s? « 1)- (2s? cost, 2s^ sint, -s)dtds 


Note that a negative sign is assigned to the first integral on the right to orient 
the normal vector N1 to point away from D, whereas the normal vector N2 is 
already outward-pointing. 


Integrate[ {s Cos[t],-5^2 Sin[t]42,s®2+1}.{2s*2 Cos[t],2s^2 Sinft],-s}, {s,0,2}, 
{t,0,27} ]+Integrate[ {s Cos[t],-s^2 Sin[t]42,5}.{0,0,s},{s,0,2}, {t,0,27} ] 


We may compute the surface integral using vectorSurfIntegral module: 


vectorSurfIntegral[X1,F, {0,2}, {0,27},-1]+vectorSurfIntegral[X2,F, {0,2}, 
{0,27} ,1] 


Now, we evaluate the right-hand side of equation (8.5): 


Since 


.F -[i 2-44 Dak 2) )- (xi -v? ji E 
V F-(i Z4 fk (xi y’j+zk)=2 2y 


? 


and the solid region D is defined by 
D={ (x y,Z)|x“2+y*2+1<=z<=5 j, 


we have 


S[JpV Fave=fff,(2-2yav 
i fa ue -2y)dxdydz 


= 16T 


The two integrals agree: 


fe F:dsS- fff, v FdV=16n 


Div[F[x,y,z], {x,y,z},"Cartesian"] 


Integrate[2-2y, {x,-2,2}, (y.- Sqrt[4-x^2 ,Sqrt[4-x^2] ], (z,x^2*y^24-1,5]] 


r 


F(r = 
Example 8.11. (a) Verify that the inverse square vector field It)? 
has zero divergence, where k is a constant and r is a position vector: r=x 
ity j*z k. 


(b) Show that, the flux of F across a piecewise smooth, closed, oriented 
surface S is 


fp F-dS- f 0 if S does not enclose the origin, 
~ | 47tk if Sencloses the origin. 


Solution (a): 


We evaluate the divergence of F directly: 


V-F=kv-(—) 


-k(i2 ej 3 i2+ k2)| Zus, _xi+yj+zk | 
ö Ir +y E 

Ox | (x? + yu" dy V (x? + vary 8z | (x? + y? 422)? 
Lime: +y? +z? x? -2y? +z? x+y? -2z | 

(2 +y 2,22" (x2 +y? NT [x2 +y? +22)? 


-2x? +y? +z -2y ez exe +y? -2z 
=k 2\5/2 
(x? +y ? +22) 


un EE 22242xX? +2y2 +2Z | 


Ziy ez T 


Div[1x,y,zV/(x^2*y^24z^2)^(3/2), 1x,y,z) ," Cartesian"]//Simplify 


Solution (b): 
Case 1. S does not enclose the origin. 


F(r) - k — 


Then Ir!” is defined everywhere and has continuous partial 
derivatives. From part (a) we obtain V: F =0 . By Gauss's Theorem: 


f, F:dS- JJ JpV-FdVv=0 


Case 2. S encloses the origin. 


F(r)=k — 


Then Il” is defined everywhere except at the origin. 


Let Sa denotes a sphere of radius a centered at the origin. Sa has the graph 
equation x^24-y^2-z^2—a^2. Then the unit normal vector to Sa may be 
computed using the gradient of the level surface: 


n= 2xi+2yj+2zk _ _xi+yj+zk _ xityj+zZk  r 


NV4Ax^ «4y^ «Az? V x^«y?«z? a a 


Note that n is pointing away from Sa. 


Suppose a is so small that Sa is contained inside S. Let D be the solid region 
between Sa and S. Then OD consists of S and Sa, does not contain the origin 
and Gauss's Theorem is valid in D. As a result from part (a), V: F =0 
throughout D. According to Gauss's Theorem: 


PoF AS= dh, F-dS+¢h.F-dS= fff, V Fdv-0 


Orienting OD with normal vectors that point away from D as stipulated by 
Gauss's Theorem gives 


- ff, F'dS« dS, F-dS-0 


(Sa is now part of the boundary of D, its normal has to be in opposite 
direction such that it points away from D.) 


Thus, 


fp, F- dS = fh, F.dS 


We now compute the flux of F through S indirectly by using instead the 
flux of F through Sa. Note that Sa is a sphere of radius a so it is easier to 
compute than a general surface S. 


So, 


ffs, F US= 4h. F-nds 
=k ff ards 


_ ri? | 1 
aE fs, Irj a uh 


On Sa, we have ||r||=a, so 


ff, F IS=5 fds 


Since the surface area of a sphere of radius a is An a^2, therefore 


ffs, F'dS-4rk 


Thus, 


fp F dS = fh. F-dS=47k 


Hence, 


fp F-dS- { 0 if S does not enclose the origin, 
S ~ | 47tk if S encloses the origin. 


Example 8.12. A solid region D is bounded by the paraboloids z-9-x^2-y^2 
and z-4x^244y^2-16. Use Gauss's Theorem to find the volume of D. 


Solution: 


The boundary curve C for the two paraboloids can be found by solving the 
equation: 


Z—9-x^2-y^2-4x^2-Hy^2-16 
25=5x^2+5y^2. 


x^2+y^2=5. 


Substituting back x^2+y^2=5 into z=9-x^2-y^2 gives 


Z=9-5=4. 


Thus, the intersection of the two paraboloids is a circle of radius Sqrt[5] in 
the xy-plane at z=4. 


We may parametrize the circle by 


c(t)=(Sqrt[5]cos t,Sqrt[5]sin t,4). 


Clear[c] 


c[t_]:={Sqrt[5]Cos[t],Sqrt[5]Sin[t],4} 


plot[1]-ContourPlot3D[ {z==9-x’2-y*2,z==4x’2+4y*2-16}, {x,-3,3}, 
{y,-3,3},{z,-16,9} ,Mesh->None,ContourStyle-> { {Green,Opacity[0.6]}, 
{Yellow,Opacity[0.4]}},PlotTheme->"Business" |; 


plot[2]-ParametricPlot3D[c[t], {t,0,27},PlotStyle-> 
(Dashed,Red,Thickness[0.007]] ]; 


Show[Array [plot,2 ] | 


Figure 8.17. The solid region D is bounded by the paraboloids z-9-x^2-y^2 
and z-4x^244y^2-16. 


According to Gauss's Theorem, equation (8.5) of Theorem 8.2: 


db F-dS=|{/,V-Fdv 


Let F=x ity j+z k. Then ôx dy a 


Equation (8.5) reduces to 


fb F-dS- fff, V-Fdv-3fff, dV 


So, the volume of the solid region V is 


V=Jf[pdV=_ fplxityi+zk)-ds 


The boundary OD consists of two surfaces 91 and 0D» : 
1. Paraboloid 1: 9D1 ={ (x y,z)z-9-x^2-y^2, 4<=z<=9 | 


Parametric equation of 9D, . 


X1(s,t)=(s cos ts sin t,9-s*2), 0<=s<=Sqrt[5], 0<=t<=27, 
Normal vector to 92 : 
N1=(2 s^2 cos t,2 s^2 sin t,s). 


NI is outward-pointing normal. 


2. Paraboloid 2: 0D» =f (x,y;z)z-4x^244y^2-16, -16<=z<=4 }. 
Parametric equation of OD» . 

X2(s,t)=(s cos t,s sin t,45^2-16), O<=s<=Sqrt[5], 0<=t<=2z, 
Normal vector to 92 : 

N2=(-8 s^2 cos t,-8 s^2 sin t,s). 


N2 is inward-pointing normal, so we need to orient N2 to point away from D 
when using Gauss's Theorem. 


Clear[X1,X2,F] 
XI1[s_,t_]:={s Cos[t],s Sin[t],9-s^2] 
X2[s_,t_]:={s Cos[t],s Sin[t],4s^2-16] 


F [x , yz ] = USyzj 


normal[X1 ][s,t]//Simplify 


normal[X2][s,t]//Simplify 


plot[ 1 ]=ParametricPlot3D[X1[s,t], {s,0,Sqrt[5]}, {t,0,27} , Mesh- 
>None,PlotStyle->{Green,Opacity[0.9]},PlotRange-> | {-3,3}, {-3,3}, 
{-16,9}},AxesLabel->{"x","y","z"}, PlotTheme->"Business"]; 


plot[2]=ParametricPlot3D[X2[s,t],{s,0,Sqrt[5]}, {t,0,27} ,Mesh- 
>None,PlotStyle->{Yellow,Opacity[0.4]} ,PlotTheme->"Business"]; 


Show[Array[plot,2],BoxRatios->{1, 1, 11] 


Figure 8.18. The solid region D bounded by two surfaces: oD; ={ 
(x, y,Z)|Z=9-x’2-y*2, 4<=z<=9 } and 90D» ={ Guy,z)z-Ax^244y^2-16, 
-16«—z«-4 1. 


So, 


V= f[f,dv 


=, fip(xi+yi+zk)-dS 

= iff xi+yi+zk)-dS+ [s (xi+yj+zk)-as] 

= iff (xi+yj+zk): N: dS + f, (xi+yj+zk)-(-Nz)dS| 
= ^ [LE [27 (scost, ssint, 9s?) (2s? cost, 2s? sint, s)dtds 


- [5 f27(scos t, ssint, 4s? - 16): (-8s^ cos t, -8s^ sin t, s)dtds| 


1/3 (Integrate[ (s Cos[t],s Sin[t],9-s^2]. (2s5^2 Cos[t],2s^2 Sin[t],s}, 
{s,0,Sqrt[5]}, {t,0,27} ]-Integrate[ {s Cos[t],s Sin[t],4s^2-16]. {-8 s^2 
Cos[t],-8 s^2 Sinft],s}, {s,0,Sqrt[5]}, {t,0,27} ]) 


We may also use vectorSurfIntegral module to compute this integral: 


1/3 (vectorSurfIntegral[X1,F, {0,Sqrt[5]}, {0,27} | *vectorSurfIntegral[ X2,F, 
{0,Sqrt[5]} E {0,27} lp 


Example 8.13. Use Gauss's Theorem to evaluate the flux of the vector field 
F=y 1+x j+(y*2+z)k across the boundary S of the solid region bounded by 
the cylinder x^2+y^2=4, the plane z=x+1, and the xy-plane (see Figure 
8.19). 


Solution: 


According to Gauss's Theorem, equation (8.5): 


fe F-dS- f[[, vV- Fav 


The left-hand side of the equation above is the flux of F across S= 0D , 
so 


flux= fff, V Fav 


Since V -F = 1, the flux of F across S is equal to the volume of D: 


flux= fffo dv. 


The intersection of the cylinder x*2+y”2=4 with the plane z=x+1 is a curve 
parametrized by 


(2 cos t2 sin t,2 cos t-1), 0<=t<=2n. 


Since the cylinder is bounded by the xy-plane, at z=0 the intersection is the 
line x—-1. Therefore, D is a solid region lying over the intersection of the 
disk x^2*y^2«-4 with the line x=-1 in the xy-plane; whereas z ranges from 
0 to z=x+1. So, 


fux- fff,dv- fe, yea [ij dzdydx 


yz-N4-x zJ 
Nm 


Integrate[1, {x,-1,2}, {y,-Sqrt[4-x%2],Sqrt[4-x*2]!, {z,0,x+1}] 


Clear[F] 


F[x_,y_,Z_]:={y,x,y2+z} 


Div[F[x,y,z], {x,y,z},"Cartesian"] 


plot[1]=ContourPlot3D[ {x*2+y*2==4,z==x+1}, {x,-2,2}, {y,-2,2}, 
{z,0,3 },Mesh->None,ContourStyle-> { {Opacity[0.3], Yellow}, 
{Opacity[0.5],Green} },AxesLabel-> {"x","y","z"},PlotRange->{{-3,3}, 
{-3,3}, {0,4%}, ViewPoint-> (3,-3,21]; 


plot[2]=Graphics3D[ {Dashed,Red, Thickness[0.01],Line[ { {-1,-Sqrt[3],0}, 
plot[3]-ParametricPlot3D[ { {2Cosf[t],2Sin[t],2Cos[t]+1}, 
{2Coslt],2Sin[t],0}},{t,0,(2n7)/3} ,PlotStyle-> 
{{Dashed,Red,Thickness[0.01]},{Dashed,Red,Thickness[0.01]}}]; 
plot[4]=ParametricPlot3D[ { {2Cosf[t],2Sin[t],2Cos[t]+1}, 
{2Cos|[t],2Sin[t],0}}, {t,(47t)/3,27} ,PlotStyle-— 

t {Dashed,Red, Thickness[0.007]!, {Dashed,Red, Thickness[0.01]}}]; 


plot[5]=VectorPlot3 D[F[x,y,z], {x,-3,3}, {y,-3,3},{z,0,4!, VectorPoints- 
>5,VectorScale->{0.2, 0.15, Automatic}, VectorStyle->Gray]; 


plot[6]=Show[Array[plot,4]]; 
plot[7]-Show [Array [plot,5 ]]; 


Show [GraphicsGrid| { {plot[6],plot[7]} } |. KI mageSize-^600] 
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Figure 8.19. The solid region D bounded by the cylinder x*2+y”2=4, the 
plane z=x+1, and the xy-plane, in the vector field F=y itx j+(y”2+z)k. 


Example 8.14. Let the vector field be F2(x^2-z^2)i-(E^z^2-cos x)jty”3 k. 


Use Gauss's Theorem to evaluate the flux J Js F-ds 


x+2y+4z=12 in the first octant. 


, Where S is the surface 


Clear[F] 


F[x_,y_,z_]:={x42-z42,Exp[z*2]-Cos[x],y*3} 


plot[ 1 ]=ContourPlot3 D[x+2y+4z==12, {x,0,12}, {y,0,6}, 
{z,0,3},ContourStyle->{Opacity[0.3],Blue} ,AxesLabel-> {"x","y","z"}]; 


plot[2]=Graphics3D[ {Opacity[0.2],Red,Triangle[ {{0,0,0},{12,0,0}, 
{0,0,3}}],Green,Triangle[ { {0,0,0},{0,6,0}, 
{0,0,3} } ], Yellow, Triangle[ { {0,0,0}, {12,0,0},{0,6,0} } ]] |; 


plot[3 ]=VectorPlot3 D[F[x,y,z], {x,0,12}, {y,0,6}, {z,0,3}, VectorPoints- 
>7,VectorScale->{0.1, 0.3, Automatic}, VectorStyle->Gray]; 


plot[4]-Show [Array [plot,2 ]]; 


plot[5]-Show[Array[plot,3 ]]; 


Show[GraphicsGrid[ { {plot[4],plot[5]} } |,»pDnageSize-^600] 


Figure 8.20. The solid region D bounded by the surface x+2y+4z=12 and the 
coordinate planes in the first octant, in the vector field F=(x^2-z^2)i+ 
(E^z^2-cos x)jty”3 k. 


According to Gauss's Theorem, equation (8.5): 


fe F:dS- fff, v. Fdv 


Evaluate the divergence of F: 


V-F=2x. 
Div[F[x,y,z], {x,y,z},"Cartesian"] 


The boundary OD consists of four surfaces: 
1. S1, the surface x+2y+4z=12 in the first octant. 


2. Sa, the triangle surface in the xz-plane. The outward-pointing normal is 
Na=(0,-1,0). 


3. Sb, the triangle surface in the yz-plane. The outward-pointing normal is 
Nb=(-1,0,0). 


4. Sc, the triangle surface in the xy-plane. The outward-pointing normal is 
Nce=(0,0,-1). 


Thus, 


for dS= ff, F-dS+ J, F-dS+//, F-dS+ ff, F-ds 


= [f[; V: Fav 


So, the flux of F through S1 is 


HF ase Mfr FAV- fl, 48- [fr S-J FA 


1 (12-x) „1 (12-x-2y) 
Js, F dS = bet e Xo 2xdzdydx 


t (12- x) 
- f. feo z=0 - e ,e* * ~cos x, y) 0. -1,0)dxdz 


(12-2y) 
-E ÉS (x 2-2, ef -cosx y*)-(-1,0, 0)dzdy 


1 (12-x) 2 
i ro (e-z, e - COS X, ye. 0, -1)dydx 


f (12-x) t (12-x-2y) 
= | -o Jy=0 z-0 2xdzdydx 


1 
42 4 (12-x) 22 
+ j^ PP J - COS u dzdx 


-Fas Zazay 


12 1 (12-x) 
+ v -0 y dydx 


- 2110.43 
Integrate[2x, {x,0,12}, {y,0,1/2 (12-x)},{z,0,1/4 (12-x- 


2y)} |+Integrate[Exp[z”2]-Cos[x], {x,0,12}, {z,0,1/4 (12-x)} ]-Integrate[z^2, 
1y,0,61,12,0,1/4 (12-2y)}]+Integrate[y%3, {x,0,12}, {y,0,1/2 (12-x)}]//N 


Example 8.15. Let S be an oriented surface defined by z-E^(1-x^2-y^2), for 
z>=1. 


(a) Use Gauss's theorem to calculate the flux of F through S where F=-2x 
ity j+(2+z)k. 


(b) Evaluate the flux of F through S directly. 


Solution (a): 

Write z-E^(1-x^2-y^2)-E^(1-(x^2 + y^2)). For z>=1, S is the graph of the 
function f(x,y)-E^(1-(x^2 + y^2)) defined over a planar region R={ 
(x,y)|x^2*y^2«-1 }. 


We may consider D as a solid region where the boundary OD consists of S 
and R, to which Gauss's Theorem applies. Then by equation (8.5): 


db F-dS- fff, V. Fdv 


’ 


PoF dS= JJ; F:dS«[J,F-dS- [ff V.FdV 


plot[1]-ContourPlot3D[z--Exp[1-x^2-y^2 //Evaluate, {x,-1,1},{y,-1,1}, 
{z,1,3},Mesh->None,ContourStyle->{Green,Opacity[0.8]} ,PlotRange-> 
{ {-1,1},{-1,1},{0,3}}, AxesLabel->{"x","y","2"} ]; 


plot[2]-ParametricPlot3D[ {Cos[t],Sin[t],1}, {t,0,27} ,PlotStyle-> 
(Red, Thickness[0.007]1 ]; 


Show [Array [plot,2 ]] 
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Figure 8.21. S is the surface defined by z-E^(1-x^2-y^2), for z>=1. 


We may parametrize S by 
X1(s,t)=(s cos t,s sin ;E^(1-s^2)), 0<=s<=1, 0«-t«-2n. 
Normal vector: N1=(2 E^(1-s^2) s^2 cos t,2 E^(1-s^2) s^2 sin t,s). 


NI is pointing away from D. 


And the disk R parametrized by 
X2(s,t)=(s cos t,s sin t,1), O<=s<=1, 0<St<=2n. 


Normal vector: N2=(0,0,s). 


N2 is pointing into D. So, we need to orient N2 such that it points away from 
D. 


Clear[X 1,X2,F] 
XI[s ,t ]:4s Cos[t],s Sin[t],Exp[1-s*2]} 
X2[s_,t_]:={s Cos[t],s Sin[t],1} 


F [x , yz ] = {-2x,y,2+z} 


normal[X1 ][s,t]//Simplify 


normal[X2][s,t]//Simplify 


The divergence of F is zero. 


Div[F[x,y,z], {x,y,z},"Cartesian"] 


plot[1]-ParametricPlot3D[X!1 [s,t]//Evaluate, {s,0,1}, {t,0,27} ,; Mesh- 
>None,PlotStyle->{Green,Opacity[0.2]},PlotRange->{ (- 1,15, (- 1,1], 
10,31 , AxesLabel-» {"x","y","z"},PlotTheme->"Classic"]; 
plot[2]=ParametricPlot3 D[ X2[s,t]//Evaluate, {s,0,1}, {t,0,27} ]; 


plot[3]-ParametricPlot3D[ {Cos[t],Sin[t],1}, {t,0,27} ,PlotStyle-> 
{Red, Thickness[0.004]}]; 


Show[Array[plot,3]] 
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Figure 8.22. The solid region D whose boundary consists of two surfaces. 


So, 


[Ss NıdS+ ff. F-(-No)dS=[f[,V-FdVv 
-0 


The flux of F through S is 


JJ.F:-NidS=/[,F-NodS 
= cv ohun(-2scost, ssint, 3)-(0,0,s)dtds 
= [i ,[E53sdtds 
= i.n 
-6n|! s? 
=3 


Integrate[3s,{s,0,1},{t,0,27}] 
We may verify our result using vectorSurfIntegral module: 
vectorSurfIntegral[X2,F, {0,1}, {0,27} ] 


Solution (b): 


Now, we evaluate the flux of F through S directly: 


JJ,F-dS= ff F:N; dS 
= cofizo(-25c0st, ssint, 2+1"); 


ie a t, s)dtds 


(2 01-5" s? cos t,2e 
2 
= a a (40° Fanas" Ssin?t+s[2+e'® atas 
=3 


Integrate[-4Exp[1-s^2]s^3 Cos[t]^2--2Exp[1-s^2]s^3 Sin[t]^2+s(2+Exp[1- 
s^2]), {5,0,1}, {t,0,27}] 


Let us verify our result using vectorSurfIntegral module: 


vectorSurfIntegral[ X1,F, {0,1}, {0,27} ] 


Example 8.16. Find the fallacy in the following derivation that concludes 
"all magnetic fields are not real". This example is taken from the article: "G. 
Arfken, Magnetic Fields Are Not Real, American Journal of Physics, vol. 
27, issue 7 (1959), p.526". See also "B. E. Blank, S. G. Krantz, Calculus, 
Multivariable 2nd Edition, John Wiley & Sons, 2011, p.1139" 


Solution: 


One of Maxwell's equations says that if B is a magnetic field, then 
V-B=0. Furthermore, B may be expressed as the curl of some vector 
A: 


B-VxA, 
where A is called the vector potential of B. 


According to Gauss's Theorem (equation 8.5) for B: 


PB dS= Jff y Bav 


Since V:B=0 , we obtain 


(39) d$ (VxA) dS=0 


Here lies the common mistakes to apply Stokes's Theorem (equation 8.1) to 
equation (8.9), by writing it as 


(8.10) 


[Js xA) dS=0=4.A-ds 


Note that equation (8.9) refers to a closed surface integral (hence, the sign fp 
), thus there is no boundary curve; whereas Stokes's Theorem refers to open 
surface integral with boundary curve. Therefore, equation (8.10) is not valid. 


If we follow the fallacy by assuming equation (8.10) is valid, we will 
come to the conclusion that A has path-independent line integrals. For it 
follows from Theorem 7.7 that there is a scalar function V such that 
A=VV .So then (the curl of a gradient vanishes) 


B=VxA=Vx(VV)=0 


This implies that all magnetic fields B vanish. Of course this is absurd. 


Appendix A. Introduction to Mathematica 


A.1 Executing Simple Expressions 


In Mathematica, any text enclosed in matching (* and *) denotes 
comments. A comment can be inserted anywhere in Mathematica code. 


To execute an expression, place the cursor at the expression, and then 
press [SHIFT]+[ENTER] on a PC or [COMMAND]+[RETURN] on a 
Mac. 

Or alternatively, from the menu bar on top of Mathematica, click on 


the Evaluation -> Evaluate Cells. (click on the "Evaluation" menu and 
then follows by clicking "Evaluate Cells") 


(* First clear any values that may already have been assigned 


to the names of the various objects to be calculated *) 


Clear["Global**"] 


(* Addition. Type 1+2 and then execute *) 


1+2 


Parentheses, (), are used only for grouping such as the expression below: 


(* Multiplication *) 


(1+2)*3 


To assign a value to the variable a, we use equal (=) sign. Notice that equal 
sign in Mathematica is used for assigning value to a variable. It is not the 
same meaning as equality in standard mathematical expressions. 


Since all built-in Mathematica objects begin with capital letters, they are 
reserved names. Mathematica will complain if we assign value to a reserved 
objects. Some reserved names are: Cos, Pi, Sin, Exp. Some function names 
are: Plot, FindRoot, ParametricPlot. The only Greek character reserved in 
Mathematica is 7. 


Some common mistakes: 


sin[pi] 


cos[pi] 


The correct expressions are 


Sin[Pi] 


Cos[z] 


Mathematica is case-sensitive. A variable name A is different from a 
variable name a. So it is good practice to name variables begin with 
lowercase letters. 


Let us compute the expression (1+2)*3 and assign the result to a variable 
called a: 


a=(1+2)*3 


A semicolon (;) at the end of a Mathematica command will suppress output. 
For example: 


b=(1+2)*3; 


To check the value of b, we type the following expression and execute it 


(* Type b and then execute *) 


b 


Multiplication in Mathematica can be represented by a space between 
expressions, for example 


(* (1+2) and multiplied by 3 and the result is assigned to c. 


A space is used in between to denote multiplication *) 


c=(1+2) 3 


(* Check if a equals b equals c *) 


a==b==c 


Notice that Mathematica uses double equal sign (==) to mean equality to 
check if a equals b equals c. 


Mathematica keeps records of all the inputs and outputs in a session. Thus, 
we can refer to the last result generated by using the percent sign (96) 
notation. Double percent signs (%%) gives the next-to-last result generated. 
%%...% (k times) gives the k-th previous result and %k refers to output line 
numbered k. 


A.2 Defining a function 


Besides the built-in functions, we can also define a function in 
Mathematica. For example, a function f which takes an input x, and output 
x^2-4, 


f(x)-x^2-4 


we type in 


f[x |:-x^2-4 


Notice that the function argument x must be followed by an underscore ( ) 
inside the square bracket [ ]. Here we have used a colon-equal sign (:=) to 
separate the left side of the function definition from the right. 


To compute the output of the function when x-1, we type in the following 
and execute the expression 


f4] 


Similarly, to compute the output of the function when x=-1: 


f[-1] 


We can also use Mathematica built-in function such as Sin in our 
function. For instance 


g(x)=x-sin (x^2). 


g[x ]-x-Sin[x^2] 


gll] 


The result may not be what we wanted. If we wish to have numerically 
value, we can use the built-in function N. Here is an example: 


g[2V/N 


The above expression is equivalent to 


N[gl2]] 


where the N command gives the numerical value of g[2]. 


There are times when we need to define a different function using the same 
function name f(x). However, f(x) is still retained in memory as can be 
checked below 


?f 


Thus, we want to clear out the function f(x) from memory using Clear 
command and then define the new function using the same function 
name. 


Clear[f] 


(* Define a new function with function name f *) 


f[x_]:=2x^3+1 


Now, f(x) is a totally different function. We can verify this using the ? 
command: 


?f 


Notice in our examples in defining functions above, we have used the := 
operator, which is called the SetDelayed operator. Mathematica will 
evaluate the expression appearing to its right afresh each time the 
expression appearing to its left is called. 


While the = operator, which is called Set operator evaluates the 
expression on its right only once, at the time the assignment is made. 


A.3 Lists 


A list is a collection of elements separated by commas and enclosed in curly 
brackets. For example: 


12,3, 5, 8} 


To make a list above we can use List command: 


List[2,3,5,8] 


We may enter a list directly without using the List command, such as 


{3,6,7,8} 


We can use lists to build up vectors, matrices, tensors and other arrays. 
For instance, we use Table command in the following to generate a one- 
dimensional array: 


myList=Table[2^, {1,5 } ] 


and assign the list with the name myList. 


To extract element of a list, we use double square bracket [[ and ]]. For 
instance, to extract the second element we type in 


myList[[2]] 


To extract a sequence of elements, from the second to the fourth element of 
myList 


myList[[2;;4]] 


To extract an element 2 from the end of a list: 


myList[[-2]] 


As mentioned earlier, we can build a matrix by using list. In fact, a matrix is 
a list of lists. For instance, we build a 3x3 matrix by typing in 


myMatrix={{9,3,2},{3,3,1},12,2,0} 3 


To show the elements of list arranged in a regular array, we use 
MatrixForm command: 


MatrixForm|[my Matrix] 


or equivalently 


myMatrix//MatrixForm 


To switch rows and columns, we use Transpose command and then 
follow by MatrixForm command to show it in regular array. 


Transpose[my Matrix |//MatrixForm 


The inverse of our matrix myMatrix is 


myInverse=Inverse[my Matrix | 


myInverse//MatrixForm 


Let us verify that multiplication of the matrix with its inverse matrix is an 
identity matrix: 


myMatrix.myInverse//MatrixForm 


mylInverse.myMatrix//MatrixForm 


A.4 Plotting Graphs 


To generate a graph of a function f, we use the Plot command. 


f(x)-2x^243x-1. 


First of all, we clear memory of any previously defined variable f and then 
define the function: 


Clear[f] 


f[x_]:=2x%2+3x-1 


(* Plot the function for -2<x<2 *) 


Plot[f[x ], {x,-2,2} ,PlotStyle->AbsoluteThickness|2]] 


We may also write the function explicitly inside the Plot command, 
such as 


Plot[Sin[x], {x,0,4rt} ,PlotStyle->AbsoluteThickness|2]] 
1.0} 


0.5} 


To plot several functions at once, we separate the functions with comma 
inside a curly bracket. The functions have different gray color using 
GrayLevel option: 


Plot[ {Sin[x],Sin[3x],Sin[5x]}, {x,0,27} ‚PlotStyle-> 
{{AbsoluteThickness[2],GrayLevel[0.0]}, 


{AbsoluteThickness[2],GrayLevel[0.5]}, 
{AbsoluteThickness[2],GrayLevel[0.7]}}] 


N 
hin 


-0.5 


-1.0| 


Here is another example in which we use a Table command to generate 
a list of cosine functions and sent it to Plot command: 


Plot[Evaluate[Table[Cos[k x], {k,1,3}]], {x,0,27},PlotStyle- 
>AbsoluteThickness[2]] 


1.0} 


0.5} 


-0.5| 


-1.0} 


Mathematica has a Manipulate command to allow us interactively 
manipulate the values of a variable of a function. For instance, we plot 
the function 


sin (k x), 


in the range 0<=x<=2z, while changing the value of k from 1 to 3. 


Manipulate[Plot[Sin[k x], {x,0,27} ‚PlotStyle->AbsoluteThickness[2]], 
tk, 1,35] 


Notice that Manipulate takes two arguments. The first is the expression 
to be manipulated. In this case: 


Plot[Sin[k x], {x,0,27} ,PlotStyle->AbsoluteThickness[2]] 


The second is an iterator which specifies the range of values that the 
controller variable k is to assume. In this case k ranges from the value of 1 
to 3. 


Notice that there is a slider inside the frame. You can move the slider with 
your mouse to control the value assumed by k. Click on the = button to the 
right of the slider to show a user control panel. Then, click on the » button 
to watch as the curve is displayed while k changes in real time. 


Here is another example of Manipulate command for function 


f(x)=sin (1/x), 


in which we allow the upper limit of x to vary from p=1 to p=3, in steps 
0.2: 


Manipulate[Plot[Sin[1/x], {x,0,p},PlotStyle- 
>AbsoluteThickness[2],PlotRange->Full], {p,1,3,0.2} ] 


Mathematica can draw curves that are defined parametrically using 
ParametricPlot command. For instance, the x- and y-coordinates of 


points are defined as two independent functions of a parameter t: 


x(t)=3cos t, 


y(t)=2sin t. 


Clear[x,y] 


x[t_]|:=3Cos|t] 


y[t_]:=2Sin[t] 


ParametricPlot[Evaluate| {x[t],y[t]} ], {t,0,27} ,PlotStyle- 
>AbsoluteThickness[2],AxesLabel->{"x","y"}] 


y 


O2 


Here is another example 


x(t)-t^2-t, 


y(t)-t^3-2t. 


ParametricPlot[Evaluate[ (t^2-t,t^3-2t] ], {t,-2,2} ,PlotStyle- 
>AbsoluteThickness[2],AxesLabel->{"x","y"}] 


Implicitly defined curves can be graphed with the ContourPlot 
command. For example curve defined implicitly by the equation: 


x^2+y^3=2x^2 y. 


ContourPlot|x^2+y^3==2x^2 y,{x,-2,2},{y,-2,2},Axes->True,Frame- 
>False,ContourStyle->AbsoluteThickness[2]] 


For a function of two independent variables, the graph is a surface in three- 
dimensional space. Suppose a function f(x,y) is defined as 


f(x, y)2x^3*y^3. 


To draw the surface in three-dimensional space we can use Plot3D 
command. 


Plot3D[x^3-y^3, {x,-2,2}, 1y,-2,2) ,AxesLabel-» ("x" "y" "z"] 
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Here is another surface defined as 


f(x,y)=cos(x+y). 


Plot3D[Cos[xt+y], {x,-n,n} ,{y,-n,n}, AxesLabel->{"x","y","z"}] 


If a three-dimensional space surface is defined parametrically by two 
parameters, s and t, such as 


f(t)=(cos s,sin t,s), 


we can use ParametricPlot3D to draw the surface. 


ParametricPlot3D|[Evaluate| {Cos[s],Sin[t],s}], {s,0,27}, {t,0,27} ] 


ParametricPlot3D command can also be used to produce three- 
dimensional space curve defined parametrically by a variable t only. 


Suppose a vector valued function is defined as 


f(t)=(3 cos t, 2 sin t, t/2). 


Clear[f] 


f[t :2 (3Cos[t],2Sin[t],t/2] 


To plot the curve f(t) we type in 


ParametricPlot3D[Evaluate[f]t] |, (t,0,6x] ,PlotStyle-> 
{Red,AbsoluteThickness[2]}] 


A.5 Calculus 


The Limit command can be used to find the limiting value of a function 
when the independent variable approaches a particular value. For 
instance, compute the following: 


limy.,3 (x - 3) csc (7T xX) | 


Limit[(x-3) Csc[n x],x->3 | 


and 


limy.,o (1 + sin x) 


Limit[(1*Sin[x]^Cot[2x],x-70] 


If f[x] represents a function, its derivative is represented by f[x]. Higher 
derivatives are represented by f"[x |, f"[x], and so on. 


Clear[f] 


f[x |:2Cosh[x^2-3x-*1 ] 


F[x] 


Another method to find the derivative of a function is by using the D 
command 


D[f[x].x] 


The second derivative of f(x)=cosh (x*2-3x+1) 


f'[x] 


Or equivalently by using the D command 


D[f[x], (x52 5 ] 


The third derivative of f(x)=cosh (x”2-3x+1) 


f"[x] 


D[f[x], 3j] 


In Mathematica, Integrate command computes antiderivatives. For 
instance, compute the integral 


[ix +2) sin (x* «4x-6)dx 


Integrate[(x+2) Sin[x*2+4x-6],x] 


We may use the traditional symbol such as 


II 2) sin[x? +4x- 6] dx 


Note that Mathematica omitted the constant of integration C from the 
answer. 


The Integrate command can also be used to compute definite integrals: 


Io"; Y ax 


Integrate[1/(1--x^2), {x,0,00} ] 


Or using the traditional symbol 


i 
L dx 
o1«x? 


Here is another example 


T i 2 
[* x ArcSin[x ] " 
0 


1-x* 


A.6 Differential Equations 


(* First clear any values that may already have been assigned 
to the names of the various objects to be calculated *) 


Clear["Global’*"] 


To solve differential equations for analytical solutions, Mathematica 
provides DSolve command to find the solutions. 


gy _ 
Example 1. To solve the first-order differential equation dx 


we simply type 


y? cos x =0 


? 


sol-DSolve|[y'[x |-y[x]^2 Cos[x]==0,y[x],x] 


Note that the result is given as a list and we assign it to sol. The formula 
for the solution is in the form of replacement. Thus to extract the 
solution we use ReplaceAll (/.) command. 


y[x]/.sol 


Example 2. Find the solution of the second-order differential equation 


28x, dc x0 
d^ dt , with initial conditions x(0)=1, x'(0)=0. 


sol-DSolve[ {2x"[t]+x'[t]+x[t]-=0,x[0]-=1,x'[0]==0},x[t],t] 


Note that we put the initial conditions together with the differential 
equation inside curly brackets. We can simplify the list by using the 
Flatten command: 


sol=sol//Flatten 


To extract the solution we use the ReplaceAll (/.) command 


x[t]/.sol 


(* Plot the analytical solution *) 


Plot[x[t]/.sol, {t,0,67} ,PlotRange->All,PlotStyle->AbsoluteThickness[2]] 


If the differential equation cannot be solve analytically, Mathematica 
provides the command NDSolve to obtain numerical solutions. 


dy 44,2 
Example 3. Find the solution of the differential equation dx 
initial condition y(0)=1. 


with 


First we try with the DSolve command. 


DSolve[ {x"[t}+Cos[x[t]]==0,x[0]==0,x'[0]==1 },x[t],t] 


However, Mathematica complains that DSolve is unable to solve the 
differential equation. 


Let us now try using numerical approximation: 


numsol-NDSolve| {x"[t]+Cos[x[t]]==0,x[0]==0,x'[0]==1},x[t], {t,0,10} | 


Notice that to perform the integration, NDSolve command needs the 
initial conditions and the desired range of solution, in this case 
0<=t<=10. 


(* Plot the numerical solution *) 


Plot[x[t]/.numsol, {t,0,10},PlotStyle->AbsoluteThickness[2]] 


A.7 Modules 


Thus far, all objects that have been defined are global, meaning that, 
for example, if we define x to have a value 1, then x will remain 1 until 
its value is changed. In contrast, a local object has a limited scope valid 
only within a certain group of instructions. 


Modules in Mathematica allow us to define local variables whose values are 
defined only within the module. Outside of the module, the object may 
either be defined or undefined. Module is especially useful when we need to 
group several commands into one unit to be executed as a group. 


?Module 


For example: 


Module[ {varl,var2,...} body] 


defines a module with local variables varl, var2, .... 


Note that the local variables are enclosed inside the curly bracket { } and 
then followed by the "body" part. 


Module[ {varl=v1,var2=v2....},body] 


defines a module with local variables varl, var2, ... initialized to v1, v2, ..., 
respectively. 


Note that local variables varl, var2, ... only defined in the module, hence 
they can only be referred to within the module. Outside of the module, they 
may or may not have any definition. 


The body part of the module can have one or more commands that are 
separated by semicolons. 


Example 4. Define a module with local variables x and y 


Module[ {x,y}, 


Z-xty; 
Print[x*y] 


] 


Note that x and y are defined locally inside the module because they are 
included inside the curly brackets. However, z is a global variable. We can 
refer to z by typing 
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